ON-LTMF MAIMTENANCF TFSTS CrtMPi'FTFD 
FRIDAY, 3/ 2/79, 3 15? Pm! 



i abfl ooooooooolinf ooi790aicc ex onlinf/maint;common*?i;cnd* 



ONLINE /MATNT 



LABrl OOOOOOOOOLTNF 00l790ilCC pX 0/R i COMMON* 1 1 FILF SePATCHES/PASC AL J F ILE LTNe-LINf PRINTJfND* 

FTLFt PaTCHES/PASCAL FRIDAY 03/02/79 03152 PM 



/R 



S# 

S'l" 

St 
St 
St 
Si 
S{ 
St 
St 



PATCH 1 FOR PASCAL. XVI. CONTAINS 10 CARDS. CORRFCT SPELLING & TABULATION 
PATCH Tn CORRECT SPFLLTNG Im SOME ERROR MESSAGES* CORRECT TABULATION OF CODE 
OR COMMENTS* AND TO CORRFCT THE CALL ON THF PROCEDURE TO GIVE A NEW PAGE. 



* + * 



*** 



NOTF THAT ERR0R(71) 
TS WAS USED ONCF* Bl! 
NOTF THAT THF ALGOL. 
"PA$CAL"/"PRFLlJOF". 



MILS A OTTE* IINTVFRSTTY nF NATAL* DURBAN. 



TS mOW NO LONGER USrD - SEE PATCH 51 3 i 
T INCORRECTLY. ERR0RC63) IS CALLED IN ITS PLACE. 
rODr FILE "PASCRUN"/"D ISK" HAS BEEN RENAMED 
.IT. TS NO LONGER REFERENCED OlRFCTLY IN 



FMD 

s« 

St 

$t 

St 
St 

FTLF 
FILE 
FTLF 
ARRAY 



BFGTN J X NULL 
GFN("PUT",3*5) J 
GENCPPAGF"*5,3)J * 
BLOCKJ 
COMPSTATJ 

(" 41 ALFA CONSTANTS MAv NOT BE 
f" 55 PROCEOURF MFSTTNG^OEPTH + 
EMn-OF-TNPUT FMCOhNTERED 
TOO MANY FTLFS 
PASCAL eOMPlLFR. 

PASCAL CONTAINS 171 



AUG - NOV 1977. 

X*** 4) REWRITE 
%*** 5) PAGE 

X*** COMPILE PROCEDURE BODY 
X*** COMPILE STATEMENT PART 
LONGER THAN 7 CHARACTERS."), 

TOO GREAT," 



NO OF RFCORDS IS 
UNEXPECTEDLY.")* 
IN USE.")* 

"'•%»»* - * , • v ■■-.»,.«■■.», , v 

...... ...... a a. ••.•.•....... ........ 

CARDS. 

COSY PATCHES 



(" 87 
f " 97 
OF.B5700 
PATCH 2 FOR 

PATCH TO MERGE DAfi LAMGMvHRS PPPlO TO PPP11 

WITH NIL$ OTTES MODIFTED PPPlO SOURCE. 

OAVIO A COOPpR , HERTOT-wATT UNIVERSITY* JANUARY 



THIS 


COMPILFR 




50203000 




50204000 




50208000 


*** 


80646000 


*** 


80691000 




91045000 


)* 


91060000 




91094000 




91104000 


* . • . 


.99001000 



1978, 



CARD "SOURCE" (1,10,3011 X SOURCE CODE 

LINES 1 (i*17)J X PRINT FILF 

PASCALGOL OlSK SFRTAL f20'.600l ( 1 , 10* 30.SAVE 0); X CODE 
PARAMTAB, F0RwPARAMi,„F0»WPARAM2C0tMAXPARAM5]l 



FILE 



FILE 



FTLE XRFFFILE OlSK SERIAL r?0t*000l (1,3,30); 

alpha array xbufftoi?u 
boOlfan xinb; 

IMTEGFR ARRAY SyMKTNOF t 6? ] t 

ERR0R100MES5 (//"100 iJ'LEGAL 
. THF VALUF 07 TS SURSTTTUTfD" /" 
E COMPILATION ERRORS C0UNT>//wX 

PACKF0SYs61#, ASSERtSY«62#J 



XuSED IN ERROR RECOVERY. 
SAVE CONSTANT IN «*»»«$»""»« 
SO THIS ERROR DOES NOT 



X 
X 



X 

X 
X 
X 
X 
X 



IF FRRNUMs.joO 

THEN NUMERRS»»NUMFRRS-1 »X 



* ERROR NUM8FR 100 ALONF SHOULD NOT 

* PREVENT THF XALGOL COMPILATION BFING 

* ZIPPED AS THF VALUE 7 IS SUBSTITUTED 

* FOR A BAD SAVE CONSTANT IN AN "S" 

* OPTION. 



7(lNTTIAL)*MT00LE,INTTlAi I 
"400REA0", "ARFAnLN", 
"6Q0.JZXL" 00 
TF" DECL THEN AX ts -AX* 
ABS(At23) LFQ ARS(Rr23)J 



"50RESET", "6UNPACK", "50WRITE", 



X 

X 



10035000 
10036000 
10037000 
10109000 
10137000 
10138500 
10138550 
10149000 
0PTI0N10188500 
INCREMFNT TH10188600 
10188700 
10211000 
20181500 
20181550 
20181600 
20181650 
20181700 
20181750 
20181800 
20181850 
20181900 
20181950 
20308000 
20373000 
20373500 
20520000 
20539000 
20541100 
20541150 



8H0LFAN PROCEDURE XRFFT NPllTf A ) 7 

ARRAY AfOn 

8EGIM 

LARFL FOFJ 

integer IJ 

RFAD(X»FFFTLE#3,XRUFFr*1)CrOF]; 
FOR H»0*i#? DO 

ATTl l» XBUFFfTD 
TF FALSE THFN FOFl 



X 

emd 



XRFFIMPUT »= XTNRJ 



OF 



RFGTW 

rLO«F(XREFFILE*RELFASE); 

XlNo •» TRUE; 
FNOJ 



xreftnput; 
A2 i« -a?; 

BOOLFAN LPARFO()ND»SAVFXRFFnPT; 

SAVFXRprOPT I* XREFOPTIONJ, XREFOPTION Is FALSER 

IF SAVFXRfFOPT TuFN NEWXREF ( CURNAMEl ,CURNAME2,THI SLEVEL, 

FALSF)J 
XRFFOPTTON 1= SAVFXRFFOPTJ 
* ASSERT (j2 ASSERTSY INITIAL 

IF CURNAMFI-^aaSSERT" THFN ASSERTSY ELSE 
FND* 



* 
% 
X 
X 
X 
X 
X 
X 
X 

% 

X 
X 
X 
X 
X 
X 
X 



THF FOLLOWING LH'FS DFcODr ANY OCCURRENCF OF THE 
SETS THE GLOBAL TNTFOFR VARIABLE "SAVEFACTOR" WHICH 
TYPF OF COMPIi ATION INITTaTEh BY THF ZIP. THERE ARE 
OF THF "5" OPTION AS FOLlOWSi- 



"S" OPTION AND 
CONTROLS THE 
THREF LEGAL FORMS 



"S- w WILL GTVF MO ZtP IE. PASCAL 
"S + » WILL GIVE A ZId FOR COMPILF 
M S?? W WILL GTVF A Zln FOR COMPILF 
WHERF ?? TS THr TWO DIGIT 
CONSTANT GIVEN THE OBJECT 



SYNTAX 

AND GO 

TO LIBRARY 
DECIMAL SAVE 
CODE FILE 



CHECK ONLY 



NB. TF THF SAVr CONSTANT IS TO BE 
LFSS THAN To THE FIRST DIGIT 
MUST RF INCLUDED IE. A "0". 



ELSE 

IF CX«"S" THFN 

BFfilN 

IF Cs"-" THEN 
IF C» M +" THEN 
IF C LFQ 9 THpN 
BFGlN 

SAvEFATTOd 
SAVFFArTOo 
TF C ftTR n 
EMD 
ELSF 
BEGIN 

FBRORMOO'iJ 



SAVEFACTORls-1 ELSE 
SAVEFACTORt* FLSF 



i= io x cj nfxtchar; 

1= SAVEFACTOR + Cj 
THEN ERROR (100W 



20541200 

20541250 

20541300 

20541350 

20541400 

20541450 

20541500 

20541550 

20541600 

20541650 

20541700 

20541750 

20541800 

20541850 

20541900 

20541950 

20541960 

20570000 

20842000 

20847500 

20861500 

20861550 

20868500 

30075500 

30165500 

30280000 

30280025 

30280050 

30280075 

30280100 

30280125 

30280150 

30280175 

30280200 

30280225 

30280250 

30280275 

30280300 

30280325 

30280350 

30280375 

30280400 

30280425 

30280450 

30280475 

30280500 

30280525 

30280550 

30280575 

30280600 

30280625 

30280650 

30280675 

30280700 

30280720 

30280735 

30280750 



e 



SAvFFACTOo in 71 



TRur; 



6) OPEN I CLOSF (INPUT) 
X CUMULATIVE FREQUENCY 



END! 
Ewnl 

* 

INTFGFR EXPRLEVFL>TX»FXPlNVARCiTiTJ% 

POOLE AN INRRACKET,lMRFCnRDTsiMPUEvAR; 
. SIMPLFVAR le FA|„Sf; 

CURTYPF «■ THISTn.TYPFj «s!MPLEVAR I* 
SjMPtFVAR !■ FAtSFi 

EXP TNVARCNTl«EXPlNwARCNT*l J X 
EXPTNVARCNTt«FXPINwARCNT-lJ% 
SIMPLEVARIARLE l« STMPl FVAoj 

TF EXPINVARCNT«0 THEM WRtTEEXPRJ X 
LARFL FFHJ 

BFGIM 

r,EN(«0QJ7YL«,A#?r» 
TNSYMROLI 
GO TD EFHl X 
FNDJ 
FFHj 

FXPRLEvEL la II 

IE THTSlnlinCLASS.VAo OR 

THTSlnlinci ASSicOwST AND ROOLEANfTHlSID. FORMAL) THEN % 
FXPRLEVEL la OJ 
PROCFOHRE ASSERT5TATJ 
BF6IW 

GFNflF N0Tf w #7»l )J 

tnsymrol; boolexprj 

GFN(") THFN«»7,?)| GFW( M otlNERR( M »7»i); 
GFNlNTf CAROCNT)! GFm l»\"» 1 » 7 ) ; 
END OF ASSFRTSTATj 

IF CURNAMFla"600JZvL w THEN FlLFHANOL ING( 6 ) 
TF CURSY«ASSERT-SY THFN ASSrRTSTAT FLSF. 

IF PARAM THFN GPNC »Q», 1 , 7 ) ELSE RFGIN 

GENC'Ol"*?^); 
GENINTfRECSIZE-1); 
END 
FORWPARAMHNUMPaRAmS] »* CURNAMEW 
F0PwPARAM?rNUMPARAMS5 l» CURNAMF2J 
TMTFGFR INDFX, CTYPF, Nl'iMFnRWARDS, T# TX» II 
ALPHA T3J 

LAPEL LI .11 X 
LAPFL LI 21 * 
LABEL LL3J * 
IF CURlFVEl GEO MAXTABl'FS THEN ERRORMOl) ELSE 

BLOrKTABrcURLFVFL+7 1 la NUMBLOCKS I* NUMBLOCKS + II 
N)AMFTAR3rcURLFVEi'»THISlNOEX3.FORWARDDEF la J 
T !■ NAMFTAB3fcUoLEVEL»THlSlNDEX1.lNF0l 
TX la T. + PARAMT*RtTll 
FOR ItaT+1 STEP * UNTIL TX DO 

NFWNAMFfFnRWPARAMjm#E0RWPARAM3rn>CURLFVEL+l)J 
RFPLACE POINTFRfMAMETABUCURLEVEL + l**3) BY 
FOR MAXNAMESll WORD5I 



GEN{"7, M , 2*6)1 



ELSE 



30280765 

30280780 
30280800 
30280825 
30280850 
30280875 
40018000 
40087000 
40099000 
40104000 
40109000 
40120500 
40121500 
40199500 
40751000 
50201500 
FOR 50204500 
COUNT50204550 
50208100 
50208200 
50208300 
50208400 
50208500 
50219500 
60346500 
60354000 
60354500 
60383500 
60391J00 
60391200 
60391400 
60391500 
60391600 
60391700 
60391800 
60443500 
60457500 
80129000 
80129100 
80129200 
80129300 
80177500 
80177600 
80403000 
80403500 
80447010 
80496010 
805420f0 
80543500 
80543600 
80553000 
80554500 
80554600 
80554700 
80554800 
80637500 
80637600 



X 
* 



X 
X 



IF CURLEvFL GFQ IaSTpFC THEN ERR0RM01>J X 80643000 

90014100 
90014200 
SaVEFACT0Ri=0J* * OFFaULT ZIp IS COMPILE AND GO UNLESS 90014300 

* * CHANGFD RY THE USE OF THF "S M OPTION 90014400 

90014500 
90014600 
90042100 

* THF FOLLOWING LINFS Ann A "0" ONTO THF FRONT OF THF PROGRAM NAME OR90042200 
X THF FIRST SIX.CHARACTFRS THEpFOF IF IT IS LONGER THAN SIX CHARACTERS 90042300 
X THUS GIVING THE NAMF OF THE vALGOL OBJECT CODE FILE PRODUCED. 90042400 

90042500 
PROSNAMF la CURNAMF1 ,r3«Sl3*i; PROGNAMELENGTH I. MINC 6 ,CURLENGTH ) + l ; 90042600 

90042700 
90042800 

BFGINX 90090400 

WRTTEfLINF #NOFRR0PS)J* 90090500 

IF ERRtlOO]X _ 90090600 

THEN WRlTEfLlNF *FRR0R1 OOmFSS ) > X 90090700 

IF SAVFFACTOR>0 THFNX *7 ZIP IS REOUIRFO 90090800 

SvOinT 90111000 

FwD * _ „ 90129500 

(•MOO ILLFGAL SAVF CONSTANT IN «nnnn s n««*n OPTION. THE VALUE 07 IS9H06500 

SUBSTITUTEnV" SO THIS FRRnR DOES NOT INCREMENT THF COMPILATION ERR091106600 

RS COUNT. M 5, X _ 91106700 

("101 PROCEDURES/FUNCTIONS mFSTED TOO DEEP.")* 91106800 

rfwtnd(xreffIlf); m 92003500 

SORT CPR I NTXRFF#XRFFTNPl!T»O.XRFFM AX, XREFC0MPARE>3> 1000*6000); 92005000 

s* patch 500 for pascal. xvtlo Contains 5 cards, prt cflls 25 to 30 

Sl THIS PATCH CORRECTS THF nOCn MENTATION FOR THE COMPILFRS PRT CELLS 25 TO 27 

$1 (NOT 21 TO 23), FURTHFRMnRp? IT USfS PRT CfLL 30 FOR THr CARq COUNT CIN PLACf 

Sf OF 27) TO 8F CONSISTANT wITi THE OTHER SYSTEM COMPILFRS. PRT CFLL 27 IS USFO 

$l FOR THE PA6F COUNT FORMFpLY AT SEQUENCE 10134000. 

$1 Nil S A OTTF* IINTVFRSITY nF NATA|_, DURBAN. AUG - NOV 1977, 

St 

TMTFGFR NUMFRRS, X »P4-2«I NUMBER OF ERRORS IN PROGRAM. 10029000 

SAVFFACTOR. X •R+2*l SAVEFACTOR FOR CODE FlLEl 10030000 

PArECNT, X »R+2jl NUMBFR OF PAgFS PRINTED. 10033800 

CARDCNTl % »p+3nt NUMBER OF CARDS RFAD. 10034000 

INTFGFR LINFCNT* FRRJNXJ. X PAGECNT P PRT+27 10134000 

$# PATCH 501 FnR PASCAL. XVKO rnNTAINs 3 CARDS. "PRT25" FnR USER-S PASCAL PRQG. 

$i this patch incorporates the pre-defined identifier m pRt?5 m located 

st at prt cell ?5 as pfr documentation i (the documentation must bf 

si amfnded to nflftf prt26 and prt27 from the pre-definfd tdentififr list.) 

Sl ++ NOTE THAT FlLF PASC AJ /PpFLUDE MUST BF UPDATED FOR M PRT25 M I 
Si THF VARTABLF "PRT25" MAY BF SET BY THE Q COMMON ■ N CONTROL CARD, 
Sl MIIS A OTTF* IINTVFRSTTY nF NATAL* DURBAN^ AUG - NOV 1977. 
$ I 

NFWNAMF( W 50PRT?57#0,0); %*** "PRT25" *** 20369100 

T3I8INTTYPFI T 3 • TOOL ASS I «!! ARJ X GLOBAL INTEGER VARIABLE 20369200 
NAMFTAB3f0,THISlNDFXl l ? T*J 20369300 

$* PATCH 502 FOR PASCAL. XVT.O CONTAINS 3 CARDS. LINE COUNT WHEN DEBUGGING 
$1 TO CORRFCT THE LTNF COUMT wiFN THE DEBUGGING OPTION TO lIST THE ALGOL 
St CnDF GENERATED TS SFt (**D + *)# OTHERWISE LINES PER PAGE GOES WRONG, 
St NILS A OTTF, IINTVFRSITY nF NATAL* DURBAN! AUG • NOV 1977^ 
Sl 

dffimf linfsperpagf * *o #, 10038000 



TF 



$* 
St 
Si 
St 
Si 
St 
Si 
si 
St 
St 



$* 

S 

s 
$ 
s 
s 

s 

Si 

it 
%>. 
s 
$ 

S: 

$ 

$ 

$ 

S 

s 



DUMPOPTIDN THFN RFGTm TF ( LI NECNT I »L TNFCNT+ 1)>L T NE5PERPAGE 20149000 
.. THEN HFADTNGJ WRI jE< i'l NE* 1 0, ALGOLC ARO t * ] ) FNDI 20149100 

patch 503 for pascalIxvt.o CONTAINS 9 CARDS. integfr to real for typetabi 

WHFN MORF THAN 63 FNTRIF* WrRF ENTERED IN THE "TYPETAB*" ARRAYS* THE 
PASCAL fOMPIi ER WAS nlScnNTrNUED DUr TO INTFGER OVERFLOW* WHICH COULD OCCUR 
IN A NUMBER OF PROCFHURF*; An A RESULT OF ASSIGNING TO AN INTEGER AN ARRAY 
EtFMENT WHOSF ExPONFNT FtEL" WAS NOT ZERO. THE FIELD "ARRTYPE" IS 
rimiOJ AND HAS THF a HTftH «RDER BITS IN THF EXPONENT FTELDl THIS PATCH 
AJTFRS THE OFCLARATTONS OF aLL IDENTIFIERS TO WHICH "TYPETABI" MAY BE 
ASSTGNFO FROM INTEGFR TO REaL TO CORRECT THIS ERRORS 

IINTVFRSITY of NATAL» DURBAN! AUG - NOV 1977. 



NILS A OTTF* 



TNTEGER ITJ RFAL TJ 

INTEGER ITJ RFAL TJ 

INTEGER CASFTYPF, AODR, MAX AnDR* INDEX* CTYPE*TX*SX* 

RFAL T1* CVALI 



t3»lltm*ulim*t j 



NAM, NAMTAB* I* J* RECSIZEj 



50225000 
50285000 
70244000 
70246000 
80020000 
80022000 
80148000 
80403000 
80404000 

forward, declarations 
the parameters and 



TNTFGER LEVFLIOOO* TYP, 

ALPHA Tl* FNAMF) 

TNTEGER FjRSTPARAM* CURKlNn, PI* PX* I* T3J REAL TJ 

TNTFGER INnEX* CTYPE, NUM?ORWAR0S» T3* TX* II 

RFAL T* CVALJ 
PATCH 504. Fn* PASCAlIxVT^O rflNTAINS 23 CARDS. IMPLFMENT 
FORWARD DECLARATIONS OF PROrFDURES FNDED IN CHAOS DUF TO 
THFTR TYPES NOT BFTNG KFPT* RESULTING IN GLOBALS BEING REFERENCFD WHERE 
POSSIBLE* ANH FORWARD DFCLAoATIONS OF FUNCTIONS DID NOT WORK AT ALL. 
THF. PROBLEM WAS THAT THF INFORMATION ON THF PARAMETFRS WAS BEING STORED 
IN THE "NAMFTAB*" ROWS FOR tHE CURRENT LEVEL* WHICH WERF BEING SET TO ZERO 
ON FXlT FROM PROCFOURE R| OCUs AT THAT LEVEL THEREAFTFR. 

THTS PATCH CORRFCTS THF FRRoR BY MARKING THF ENTRIES FOR PARAMETERS OF 
FORWARD PROCEDURES AND FUNCTIONS* SETTING TO ZERO ONLY THOSE ELEMENTS WHICH 
ARF NOT SO MARKFD ON FXTT FoOM A BLOCK* AND UNMARKING THE RELEVANT PARAMETERS 
WHFN THF PROCEDURE OR FUMCTfON IS DEFINED. THE MARKING OF THE PARAMETERS 
IS DONE IN SUCH A WAY THAT tHE SAME IDENTIFIER NAME MAY BE USED AT THE SAME 
LFVFL WTTHOUT SYNTAX ERROR ? TO REPORT THAT THE IDENTIFIER IS ALREADY DEFINFD 
THF UNMARKINC, PFPLACFS THE tDENTIFIFR NAME IN "NAMETAB*" TO ALLOW FOR THE 
SAMF NAMF OR ONF THAT HA*HF< TO THE SAME PLACE TO HAVE REEN USED PREVIOUSLY 
AND NOW DELETED^ 

Nil S A OTTF. IINTVFRSTTY of NATAL* DURBAN^ AUG - NOV 1977. 

TF FOUND AND THI ST D. t DCLASS>FUNC THEN 80548000 

N AMET AR 3f CURL TVEi'» THIS INDEX J. FORWARDDEF 1*01 8055 3000 

(THISTDllDCi AS««FUNC AND NOT FUN) THEN ERR0R(43)I 80555100 

TXt»(TI»THTSTri;iMFO)+PARAMTABm J % UNMaRK FORWARD FARMS 80556000 

FOR Tl*T+i STFP 1 UNTIL TX DO % TO ALLOW REFERFNCE 80557000 

RFGIM T3l»PAflAMTABri] .PARAMNAMFI 80558000 

CURNAMF1 l«APSfwAMETABuCURLEVFL+l*T33)l 80559000 

CURNAMF?I« mAMETAB?CCURLEVFL+1*T33I 80560000 

NAMFTAR1 rCURLEwFL+l*T311oOI 80561000 

NEwNAMFf CuRMAMrl,CuRNAME2#CuRLFVEL+l )l 80562000 

IF T3*THlSTNDEv THEN BEGIN 80563000 

PARAMTARfll PARAMNAME I *THI STNDEX J 60364000 

NAMETAR3rCUDLEVEL+l*THISINDEX] t« 80565000 

NAMETAR3rCUpLEVEL+l*T3]| 80565010 

FmD END* % OF UmMARKING FORWARD PARAMETERS. 80566000 

TXI*fTt*NAMFTAB3rcUR!>VFL*lN0EX3.INF0)+PARAMTABtTl J 806 36100 

FOR It»T+l STFP 1 UNt>L TX DO % MARK FORWARD PARAMETERS 80636200 

MAM F TARir C URl FVFi' + l*PARAMTABtn>ARAMNAM(rl.[ft6in «* 11 80636210 



TXI aCllRFtlNCI eiJRFUNM»lF FUN THEN TNDEX ELSE -II 80645000 

FOR Tl»0 STFP 1 UNTIJ' MAXNAMES DO % LEAVE FORWARD PARAMETERS 80647000 
TF NAMFTABlfrilRLrVFL* I3>0 THFN N AMET ABl C CURLFVEL* 13 ««0; 80648000 
CURLEvEL t«»Cl!RLEVF| -It CURFUNC:«TXJ 80649000 

FOR It-LASTREC STFP 1 llwTli' TOPREc-1 DO X CLEaR RECORD DECS 80693000 

S# PATCH 505 FOR PASCAlIxVtIo CONTAINS 9 CARDS. CHECK FOR HASH TABLE FULL 
St WHFN THERE ARE "MAXNAMFS" InFNTlFlERS AT ONE LEVEL* THE "NAMETAR*" ROWS 
St BFCOME FULL AND THTS USFo Tr PUT THE COMPILER INTO AN INFINITE I OOP* 
St ETTHER TM "NFWNAMF" OR "sEAoCHTAB". THIS PATCH INSERTS TEST FOR WRAP AROUND 
$1 LFAHTNG BACK TO THF HASMFD STARTING POINT* FOR WHICH IT GIVES SYNTAX ERROR 
S| 40, TOO MANY IDFNTTFTFRs DErLARED. 
Si MILS A OTTf* UNIVfRSTTY hf NATAL* DURBAN^ AUG - NOV 1977. 

OFFTNF HASHfHASHn * ENTTFR( (uASHl ) MOD MAXNAMES) *) 20202000 

BFGTn 1 Al^hA TNAMFJ TNTFGFR WoAPAROUnDJ 20209000 

WRAPAROUND t-THTSTNOFyisH a SHfCURNAMEDJ 2q210000 

IF THISTNDFX«WRAPARnUMn THEN TNAMEl-Oj % TABLE IS FULL 20216*00 

ALPHA tNAMFI INTFGFR WRAPaROuNDJ 20237100 

WRAPAROUNn««THTSTNnFV»«HASH(NAMFl)l 20238000 

IF THIS.TNDFX»WRAPARHUNn THEN % TABLF AT THIS LEVFL IS FULL 20244100 
BEGIN ERR0P(40); NAmF 1 I "TNaME; NAMF?» »NAMETAR2tTAB*THISTNDEX ] 20244200 
FNDJ 20244300 

$# PATCH 506 FOR PASCAlIxVT.O rONTAINS 2 CARDS. RESERVED WORD ENDING AT CC 80 
$t IF A RESERVFn WORD EnDFD AT CARD COLUMN 79 OR 80 AND IF THE "BOLDFACE" FOR 
St RFSFRVFn WORDS OPTION IS SFt ( + SR + *)» AN INVALID INDEX OCCURRED IN THE 
$t SCANNER "INSYMRO|_". THF PRnRLEM Is CURFD BY CORRECTLY COMPUTING THE STARTING 
$t AND ENDING PnlNT OF THF RESpRVFD WORDS. 

St NT! S A OTTF, HNTVFRSITY nF NATAL* DURBAN^ AUG - NOV 1977. 
St 

BEGIN T1 I* CARHLENCTHlcHARCNT-CURLENGTH-i; 30178000 

FOR CiiRLpNGTH*REALCCHARCNT*0)J 30181000 

$* PATCH 507 FOR PASCAlIxvKO ^ONTAINS 5 CARDS. "VARIABLF"* "SlMPLEVARl ABLE" 
Sj |M PROCFDURE "VARIABLE", "StMPLEVAR IABLF" TS SET TRUF IF A SUBSCRIPT IS 
St SIMPLE* RFSUlTINfi TN ALftOL rOOE BEING WRITTFN PRFMATURELY DURING RECURSIVE 
St CALLS ON PRncEDURF "FXPRfSStON"* WHICH IN SOME CASES LEAD TO ALGOL SYNTAX 
St ERRORS^ SINCE WRITING THE ALGOL CODE IS DFPENDANT ON "FXpRLEVEL" BEING ZERO* 
Sj THIS PATCH RUMPS TTS VALUE oRIOR TO ANALYSING THF SUBSCRIPT* AND SETS 
St "STMPLEVARIAPLE" FALSF AFTEoWARDS. 

St WTi S A OTTF, HNTVFRSITY nF NATAL* DURBAnI AUG - NOV 1977i 
St 

EXPRLEVFL •• EVPRLrVEL+1 J * DO NOT "WRITEFXPR" YET 40120900 

EXPRLEVEL t» FYPRLrVEL-U 40121100 

SIMPLEVARIABLF t« ?ALSE; % RECURSION ON "VARIABLE" 40121200 

EXPRLEVFL t« FXP&LEVELMJ 60063900 

FXPRLFVFL t* J-XPpLFVEL-U 60065100 

S# PATCH 509 FOR PASCAL. XVT.O CONTAINS 1 CARoI "CONCAT" A FUNCTION OF ANY TYPE 

St THF INTRINSIC FUNCTION "CONrAT" COULD ONLY BE ASSIGNFD TO A VARIABLE DFCLAREO 

St "RFAL" TO AVOID TYPF CONFLICT SYNTAX ERRORS^ THIS PATCH MAKES "CONCAT" 

St TYPFLESS. 

St NILS A OTTF, HNTVFRSITY nF NATAL* DURBAN^ AUG • NOV 19771 
St 

CURTYPF l« OJ % ALfATYPE nR REALTYPE 50050000 

tit PATCH 511 FOP PASCAlIxvt!o CONTAINS 7 CARDS. ALLOW UP-LEVFL ADDRESSING 
St TO ALLOW UP-lEVFL TDFNTTFlEo REFERENCES^ FORMFRLY* REFfRENCES TO GLOBAL 
$1 TOFNTIFIERS WHICH WFRE NOT tn THE OUTER BLOCK WERE FLAGGED BY SYNTAX ERROR 
St 5*" UP-LEVEL ADDRESSING NOT yMPLEMENTEO DUE TO HARDWARE RESTRICTION, 
St Al THOUGH THF RESTRICTION EXtSTS IN EXTENDFD ALGOL* IT IS NOT TRl'lE THAT THE 



s 



Si RESTRICTION TS 

$1 COMPATIBLE RG 

Si IS SIMIl AR in 

$1 THIS PATCH PFR 

S| 1.1) THAT IF. TH 

St OUTFR BLnC 

Si BUT THF fR 

St (9) THF RFSTRI 

St SYNTAX FRR 

St NTl S A OTTF, 
Si 

TF FRRNUM<0 T 

S XTF THI«5LFVFI> 

$ XTF 

$ it'i 

IF THISl E 

IF THIS 

f» 5 , FUNC 

$# patch 512>or 

$l TO ALLOW STRtlC 

$! was not implfm 
Si this Patch att 
$i but it" would f 

Si At, (SOL ARRAY I 

$1 SURSTRUCTURPS' 

Si THIS PATCH NFC 

Si FOR THIS IMP[E 

Si PASTAL/PRELUnE 

Si RY POlNTERjSOU 

$1 MILS A OTTF* 
SI 



OUF TO HAROWaRF* FOR UP-LFVFL 

ol wttw thp Caution that it is 

an array fjemrnt reference). 

mtts such c,looal references* except 

E CONTROL v/ARtABLE OF A FOR STATfMFNT TS 
K (PRT) A WARwTNG IS ISSUED <TN THE FORM 
ROR COUNT TS ClOT INCREMENTED)* AND 
CTTON TS STILi' APPLIED TO FUNCTION NAMFS. 
OR TS AMFNOED ACCORDINGLY. 

UNTVFRSTTY nF NATAL* DURBAN^ AUG - NOV 



addressing is allowed in 
inefficient (the implementation 



NOT LOCAL OR IN THE 
OF A SYNTAX ERROR* 



THE MESSAGE FOR 



1977. 



HFN FRRNU 
1 ANO THT 
THTSLFVFL 
F THTSLFV 
VFL^CURLF 
LFVFL>1 A 

tton name 
pascalIxv 
turfd ass 

ENTEO* EG 
EMPTS TO 
ATL TF TH 

THIS IM 
ANO FOR 
OS PATCH 
MFNTATTON 
I OFFtNF 
RCE' FOR 

IINTVFRS 



t:o 



MiwAoSCERRNlJM) ELSF 

slevpl<curlevel thfn errors; 

>1 AmO THISLEVEL^CURLEVEL THFN E 

fjm and thislevel^curlevel then 
vfl-t or thisindexxcurfunc thfn 
no tutslevel<curlevfl then error 
not accessible at this level>) 
Contains 24 cards, implemfnt 

TftNMrNT. FORMERLY* AN ASSIGNMEN 

a, bi record y. m fnd; a la b; 
TmPLpMENT assignment of structur 
F SToUCTURE were translated into 

PI EMrNTATION DOES WORK FOR ARRAY 
STRUCTURES ALLOCATED IN THE HFAP 
S07 TN ORDER TO SUCCEED^ 
. THr FOLLOWING DEFINE IS REQulR 

aSStGNCDEST* SOURCF* LENGTH) ■ 
I FNGtH WORDS *i 
TTY nF NATAL* DURBAN* AUG • N 



20180900 

40103000 

RR0R5J 50244000 

ERRORS! 50306000 

FRR0R(5)I 60091000 

f-5H 60276000 

» 91009000 

STRUCTURED ASSIGNMENT 

T OF A STRUCTURE 

FS OF ANY KIND* 

A MULTI-DIMENSIONAL 
§* RECORDS* 



FD IN THF FILE 
REPLACE POINTERtOEST) 



• NOV 1977. 



PROCEDURE WRIT 
RFRIN 

TF IMSIDFRRA 

THEN SYMT 

WHILF NUMPOI 

BFGIN NU 

if numsym 
Rfplacf p 

"00- 

NUMSYMS I 

ENDI % OF 

WRITFEXPRJ 

FND WRTTESFXp 



fsfxpr; %l 

% 
CKFTS THFN T 
ABtNUMSYMSl "i 
NTFRS>0 00 
MPOTNTERS !■ 
S*U > MAYSYM< 
OTNTFRCSYMTAn 
1)0TV00 1022? 
■ NUMSYMS+4) 

WHTLF 
GENf H *% 1*7 )J 
RJ 



** FIX STRUCTURF 

USED ONLY IN 
F SYMTAB[NUMSYMS 
* "* ] « ELSF 

NUMP0INTERS-1J 

THEN WRITEEXPR 
TNUMSYMS+ll) BY 
00 T MOOOO 10221 



FOR ASSIGNMENT 
ASSIGNMENT OF ST 
3 * "100000*" 

PUTSYM("3")J 



; 



XERR0R(95); * ST 

gfn("assign'%7*1 

expression; 

GENINTtTYPETABI t\ 

tf typetab1 tlfftt 
then frror(9«5 
end; 
chfcktypesf lffttyp 

f " 95 SI7E OF STRUCT 
$# PATCH 513 FOR PASCALIXV! 
Si TO corrfct the CODE 6ENF 



RUct 

\i 

fFTt 
YPF1 
M 

F» r 

URE« 

.0 r 



URED ASSIGNMENT NOT IMPLfMeNTED. 

wRiteSexPRJ 
writesexpr; 
ype].size)j 
isize^typetabitc 



GENf w )"*l*7 
URTYPEKSIZP 



URTYPE )* 

IN ASSIGNMENT A 
ONTAINS 16 CARDS 
RATrO FOR CHAINED RE 



RE NOT THE SAME. 
. FIX POINTERS 
FERENCES THROUGH 



60020000 
60021000 

RUCTURES 60022000 
60023000 
60024000 
60025000 
60026000 
60027000 
60028000 
60029000 
60030000 
60031000 
60032000 
60033000 
60034000 
60063000 
60064000 
60065000 

)J 60066000 
60067000 
60068000 
60087000 
60088000 

")* 91102000 

VIA POINTERS 
THF HEAP* 



St TF FOR POINTFRS TO POTNTFRS* THE OFFSET FOR C0MP0NFNT5 WITHIN RECORDS 

Sj WAS TNCORRFCTLY BEING AnnED, TO THE RECORD IN THE LEFTMOST REFERENCE* IE THE 

St iNNFRMOsT* TNSTFAO OF AT THr expected levfl. 

$l pHR FXAMPLE* THF FALLOWING tWO REFERENCES WOULD BOTH BE TRANSLATED TO 

St THF §AMF ALfiPL CODF FQllTvALrNT TO HE AP[HE AP t I D+IP ART* ICOMp ] ] | 

it tnp.PARTPicoMP, topIpartIcompp, 

St WHFn THF FIRST SHOULD HAVE cjFEn* HEApCHEAPt ID+IPART3+T CoMpl . 

Si In ADDITION* THIS PATCH TMPpOVES THE COMPILERS CODE FOR GENERATING THE 

Si "MEM" ARRAY SUBSCRIPT! 

St NTLs A OTTE* UNIVERSITY Op NATAL* DUR8ANI 1977-11-14 

St 

IF WUMSYMS+f * MAXsYMS THEN 40175000 

NllMSYMS !■ NUMSYmS + 2^ 40180400 

IF MUmPOInTERS > % POINTER VIA POINTER 40180500 

THEN REfiTN RFPLaCE POI NTER< SYMTAB C NUMSYMS+1 3 ) BY 4q180600 

"00-1)DTvOO 1022*00 T MOOOO I0223"j 40180700 

NyMSYMS t» M||MSYMS + ftJ 40180800 

FNO 40180900 

ELSE NUMPOTNTER« !■ 1' 40181000 

* INRRACKFT t« FAtSF) 4019H00 

BEGIN MDMpnINTFRS tr NhMP0INTerS-1 J 40193000 

IF NUMSYMs+4 < MaXSYMS 40194000 

THEN BEGIN RfPLaCF PO iNTERf SYMT AB t NUMSYMS+13 ) BY 40194100 

"OO-hoiv/OO 1022,00 T MOOOO 10223")' 40194200 

NUMSYMS t» wUMSYMS+ft; 40194300 

END 40194400 

El SE ERR0R(63J) % EXPRESSION IS TOO LONG FOR SYMTABf*] 40195000 

S* PATCH 514 FOr PASCALlxVlIo rONTAINS 2 CArOS. PrOCFSS TIME FUNCTION FOR RUN 

St PATCH TH CHANGE THF NAMF OF THE FUNCTION ON THE B5700 VFRSION WHICH SUPPLIES 

$1 THF PROrFSS TlMf USFn RY TH'r PASCAL PROGRAM ON THE cURRfNT RUN FROM "ELAPSED" 

St WHICH MFANS PLATFORM TIMf, tO "CPUTIME" WHICH IS THF WIDELY ACCEPTED TERM 

St FOR THIS QUANTITY^ 

St IS} T i S A OTTE. UNTVFRSTTY nF NATAl* DURBAN. AUG • NOV 1977. 
SI 

MpwNAMF( H 7CPUTIM% ,, F%0M NAMETAR3C0*THI SINDEX 3 » *T3 J 20390000 

IF CURNAMF1b"7CPUTtM" AND CURNAME?»"E" THEN % "CPUTIME" 40452000 
$# PftTCH '516 FOR PASCAL IXV T !o. CONTAINS 2 CARDS. CORRECT "NO LISTING" ERROR 
Si THIS PATCH CORRECTS AN FPROo WHERERY IF LISTING WAS TURNED OFF 
Si AND PAGF THRnW WAS TnVOKFD* A HEAOING WAS PRINTED REGARDLESS. 
$1 DAVID A COOPFR* HFRIOT-WaTT UNI VERS ITY . \ . ! I JUNE* 197R, 
Si 

IF CX«"L" THFN I? C«l THEN 30264000 

IF LTSTOPTTON THEN HEADING EL§E 30264500 

$* PATCH 5J7 pOR PASCAL*XVtIO. CONTAINS 2 CARD. 

$1 THIS PATCH CORRFCTS AN FpROo THAT CAUSED A FILE DECLARATION 
$1 TO HAVE ITS NAMF STRTNG SPL»T OVER TWO LlNFS IN THE GENERATED XALGOL. 
$1 AISO CHANGFS SYMTAR FORM tYPE REAL TO TYPF ALPHA. 
$t OAVTD A COOPER* MERTOY-WaTT UNT VERSI TY. I . I I JUNE » 197ft. 
Si 

ALPHA ARRAY SYMTAB t 1 MA X5YMS3; X USED BY "EXPRESSION"! 10144000 

IF ALGOLCMT LSS 1a THEN WRITEAL60LJ 80103000 

%* PATCH 518 FOR P ASC AL IxVT ! o! CONTAINS 224 CARDS. 
Si THTS PATCH CHANGFS THF WAY tHAT MULTl-OI MENSlON ARRAYS 
ft RFpRFSENTING RECORDS ARF OErLAR/EOt PREVIoSLY THEY WRE DECLARED 
$l THF WRONG WAV ROUND FOR XALftOL. THIS PATCH SORTS THE DIMENSIONS 
St INTO ASCENDING ORHFR FROM LeFT TO RIGHT AND GENERATES APPROPRIATE 
St DFFTNES AND CODF FOR HANflLlwR THE ARRAYS. 



Si STUART ANDERSON, MMPUTFP SCIENCE* HERIOT-WATT UNIVERSITY, JUNEl . • . # 1978. 
Si 

nFFlNF 10156200 

PERMSliR « #, MAyTOtALSUBScRS * 100*, 10156300 

ARRNAM n 1 #) 10156400 

ARRAY ARRSURPFRMTABrfttl,«lMAXTOTALSUBSCRS]J 10156500 

TMTEGFR PASSPFRMTAR, MAvPERMTAR, REMEMRFRPOSN; 10156600 

* ^ 40080000 

BOHLPAN STmPlEVARTARlf7tn«TDEBRACKETS#INSIDEPAREnSI 40080100 

S 40105000 

TF INSIOEPARENS ANn TYPETaRH CURTYPE ] I STRUCT > AND 40105100 

TYpETlRirCURTYPE3>0RM < FILES THFN 40105200 

PUTTD("H f MOOOxTHISl EVrL+THlSlNDEX, 5) 40105300 

Fl SE 40105400 

PUTIOf "V"» lOOOxTHTSJ EVp|.+THlSlNDEX,5); 40105500 

TNSIOFPAREmS |b TRUE; 40258100 

tnsideparens i* false; 40259100 

$ 50243000 

fiFN!r>f w H%100nxT£TSLEVEL + THlSINr)EX#5); 50243100 

$ 50307000 

fiFNIHf * , H H #i00nxTuTSLEVEL + THI3!NnEX#5)l 50 307100 

SSET VHIDT 80052000 

4P0P VHTOT 80064000 

OFFINF 80064005 

LOWStlBS ■ #, 80064010 

HISURS * 1 «» 80064015 

NEXTSUBS* 2 #» 80064020 

MAXNOOFSURSCRIPTS a 70 #, 80064025 

STOPPERSURTAB « 21 #; 80064030 

ARRAY ARR5UBSCRTPTRANftE[M2,0lMAXN00ESURSCRlPTS]J 80064035 

TNTEGFR FtRSTRANOF, NFXTrREFENTRY, PASSSUBRANGE* PREVPASS, 80064040 

MP* POSNfU SURDIrF; 80064045 

IF ARRAYVAR THFN GFW( »"", 1 , 7 ) ELSE ARRAYvAR 1 = TRuEI 80064050 

TF NOT PARAM THFN 80064055 

RFGIN 80064060 

GFN( W 0FFINE"»7»2)J 80064065 

GFNIOf "V# LEVEL 100n+NAM,5); 80064070 

GFNf w r M M*7); - 80064075 

FMnt 80064080 

FTRSTRANGF *« STPPPERSiiBTaB; NEXTFREEEnTRY 1= o; 80064085 

POSNO l« li 80064090 

MP !■ 10; FIRSTOTM I* TRUr; 80064095 

Ofl 80064100 

RFGIN 80064105 

IF FIRSTOTM THFN FtRStDIM la FALSE ELSE 80064110 

BFGIN 80064111 

IF NOT PARAM THEN r,EN<-'"» ", 1 , 7 ) ; 80064112 

END J w 80064113 

IF NOT PARAM THFN GEmTOC w V w , CLEVEL1000+N AM JxMP+POSNO, IF MP*10 80064115 

THEN 6 ELSE 7>; PnSNri i« POSNO + U 80064120 

IF POSNO m MP THEN mP »» MPxlO; 80064125 

IF NEXTFRFEFMTRY « StOPPERSUBTAB THFN 80064130 

BFGIN 80064135 

ERROR(O); 80064140 

END 80064145 

ELSE 80064150 

BFGIN 80064155 



ARRSURSCRTPTRANGrrLOWSUBSfNEXTFRFEENTRY] tsTYPETAB2CTYP]; 8006*160 

ARRSURSCRTPTRAMGErHISUBS,NEXTFRFFFNTRYl «« TYPET AR3CTYP] i 80064165 

END; 80064170 

SUBDIFF I* TYPFTAR^CTvPl - TYPETAB2E TYP J ; 80064175 

IF FIRSTRANGF « STnPPrRSUBT AR THEN 80064180 

BFGIN 80064185 

FIRSTRANGF J* mEXtFRFEENTRY; 80064190 

NFXTFREFFNTRY I n mFXTFREEENTRY + U 80064195 

ARRSURSrRTPTRAMGFrNEXTSUBS*FIRSTRANGF3 l« STOPPERSUBTAB* 80064200 

EMD 80064205 

ELSE 80064210 

BFGIN . 80064215 

PASSSURRANGF Is FtRSTRANGE; 80064220 

PRFVPASS Is STOPpFRSUBTABJ NEXTFREEENTRY IsNEXTFREEENTRY+l ; 80064225 

WHTLFfSURHIFF > ARR«URSCRlPTRANGEt HTSUBS,P ASSSUflRANGEl 80064230 

-ARRnUBSCRlPTRANGFtLOWSUBS#PASSSUBRANGE]) AND 80064235 

(ARRSllRSrRlPTRANGEtNFXTSUBS»PASSSUBRANGFl t 80064240 

STOPPERSUBTAB) 00 80064245 

BFGIN 80064250 

PRFVPASS t» pASSSUBRANGFJ 80064255 

PASSSIIRRAmGF !■ ARRSUBSCRIPTRANGECNEXTSUBS* 8006426 

PaSSSUBRANGEI) 80064265 

END; 80064270 

IF PRFVPASS * STnPPERSUBTAB THFN 80064275 

BEGIN 80064280 

IF SIJRDIFF > ARRSUBSCRlPTRANGEtHISUBS. 80064285 

PASSSURRANGE] - 80064290 

ARRSUBSCRIPTRANGECLOWSURS# 80064295 

PASSSUBRANGEJ THEN 80064300 

BEGIN 80064305 

ARRSUBSCRtPTRANGECNEXTSUBS*PASSSUBRANGE3 Is 80064310 

NEXTFREEENTRY - \i 80064315 

ARRSURSCRTPTRANGErNEXTSUBS#NEXTFRFFENTRY«n l> 80064320 

STOPPERSUBTAB; 80064325 

END 80064330 

ELSF 80064335 

BEGIN 80064340 

ARRSURSCRTPTRANGEtNEXTSUB$*NFXTFRFFENTRY«l] l« 80064345 

ftrstrangf; 8OO64350 

FTRSTRANGr I* NEXTFREEENTRY-1 ; 80064355 

END 80064360 

ENn 80064365 

ELSE 80064370 

BFGIN 80064375 

IF SHROIFF > ARRSUBSCRlPTRANGEtHISUBS, PASSSU8RANGE1 - 80064380 

ARRSUBSCRIPTRANGECLOWSURS#PASSSUBRANGE] 80064385 

THEN 80064390 

BEGIN 80064395 

ARRSURSCRIpTRANGECNEXTSUBS»PASSSUBRANGF] 1* 80064400 

NEXTFREEENTRY - 1J 80064405 

ARRSllBSrRIpTRANGEtNEXTSUBS^NExTFREFFNTRY-n Is 800644?0 

STOPPERSUBTAB; 80064415 

END 80064420 

ELSF 80064425 

BFGIN 80064430 

ARRSURSr:RlpTRANGEfNEXTSUBS#PREVPASS1 la 80064435 

NEXTFREEENTRY -\l 80064440 



ARRSURS("RIr>TRANGErNEXTSUBS»NEXTFREFFNTRY-n la 
PASSSUBRANGFJ 



end 



Ewn 



FMOJTYpi.Tr T1>0RM « ARRAYS THEN TKaRRTYPE FLSF REALTYPFJ 
Tl tm TYPFTAR1 f TYPli 
FND UNTIL TlISTRUfiT ■ ? 
TF NOT PARAM THEN 
RFC, IN 

GFNf»J»%?,6)J 

GFNID("H«,LFVFL100O+NaM,5); 

GFN("PS 1,7111 

PASSSURRANGFl» FTR5TRaNGEJ FIRSTDIM \n TRUE; 

WHILE PASSSllBRANGF X STOPPERSUBTAB DO 

Rrr t ki 

IF FIRSTOTM THEN FIRSTDIM %m FALSE ELSE GENf %"# 1 > 7) ; 
6FNlD( H V" f fLFVrLlnQO+NAH)M(lF P ASSSUBR ANGF>9 THEN 100 ELSE 
lO) + PASSSUBf»ANGE + l,IF PASSSUBRANGE>9 THFN 7 ELSF 6)1 

PASSSUBRANftF «■ AoRSUBSCRlPTRANGFTNEXTSUBSfPASSSUBRANGEl J 
END! 

6FNf"1#l%3»5> J 
FND) 

PASSSUBRANGE »■ FTRSTRANGrJ 
FTRSTDIM |. TRUF; GEN f « ARo AY"# 6# 3 ) J GEN T DC "H'VLEVFL 1000+NAM, 5 ) I 

GFNr , r w *l»7)J 
WHILE PASSSUBRANGE X STOPpFRSUBTAB 00 
BFGIN 

IF MAXPERMTAB LFO mAXTOT ALSUBSCRS AND PARAM THEN 
BFGIN 

ARR5UBPFRMTABrARRMAM»MA«PERMTABl t« 

TF FIRSTOtM THEN NAM ELSE -1J 
ARRSUBPFRMTARfPERMSUB#MAXPERMTAB] I* PASSSUBRANGE J 
MAXPERMTAB »■ MAXoFRMTAB + 1J 
EMO 
El SF 
BFGIN 

IF MAXPFRMTAB > M^XTOTALSUBSCRS THEN FRRORfOJj 
ENOJ 

IF FIRSTDTM THFN FIRSTDIM t» FALSF FLSF GENf »,», 1 , 7 ) I 
GFN I NT C ARR SURSC RTPTRAmrE FLOW SUB S,P ASSSUBR AN GE1)) 
IF NOT PARAM THFN 
BFGIN 

GEN<"t"/l,7)J 

GFNlNTf ARRSURSrRloTRANGErHISUBS»PASSSUBRANGEnJ 
EmDJ 

PASSSUBRANGF »■ ARRSUnSCRIPTRANGECNFXTSUBS^PASSSUBRANGEi; 
FNOJ 
GFN( W 1"»1»7)J 

TF CURLEVFI > 1 THFN 
BFGIN 

INTEGER NAMDFTHINCDtFFJI 

BOOLEAN FTRSTTIMf: 

GFNCBFGlN w #6#3)j 

IF MAXPERMTAR > THfN 

BFGIN 

PASSPFRMTAR I* Oj 



80064445 
80064450 
80064455 
80064460 
80064465 
80064470 
80064475 
80064480 
80064485 
80064490 
80064495 
80064500 
80064505 
80064510 

80064515 

80064 5?0 

8006453 

80064535 

80064540 

80064545 

80064550 

80064555 

80064560 

80064565 

80064570 

80064575 

800645B0 

80064585 

80064590 

80064595 

80064600 

80064605 

80064610 

80064615 

800646?0 

80064625 

80064630 

80064640 

80064645 

80064650 

80064655 
80064660 

80064665 
80064670 
80064675 
80064680 
80064685 
80064950 
80421000 
80421010 
80421020 
80421030 
80421040 
80421050 
80421060 
80421070 
80421080 



DO 80421090 

BFGiN 80421100 

RFMFMRFRPOsN ',» PASSPERMTAB) 80421110 

GFNf M nFFlNF",7,2>J 80421120 

NAMOFTHTNG ta ARRSUBPERMT AB t ARRNAM,PASSPFRMT AB ] i 80421130 

GFNl0("V"»i000xCURi'EVrL+NAM0FTHING,5)J 80481140 

GFNC"r«»1 .7)) 80421130 

FTRSTTTMF t« tRUE* 80421160 

00 80421170 

BFGIN 80421180 

TF FTRRTTtMf THEN FIRSTTIMe ta FaLSE FLSe GENf h * m »180421190 

>7W80421200 

OtFF l=» PaSSPCRMTAB-RFMEMBERPOSN+1 i 80421210 

GFNIDf "V«,nOOftxCimLEv/FL + NAMOFTHlNG)xf IF 0IFF>9 THEN 100 FLSE 80421220 

10U0TFF,(*F OIFF > 9 THFN 7 ELSE 6))) 80421230 

PASSPFrMTaR !■ PASSPERMTAB + i; END 80421270 

UNTIL PASSPERmTAB a MAXPERMTAR OR 80421280 

ARRSUBPFRMTABtARRNAM, PASSPERMTAB! * -1J 80421290 

GENf w 1",l»7)J 80421300 

GEN( M *%1,7>; 80421310 

6ENTnr»H"#Tn00wCURLEVEL+NAM0FTHlNe,3)l 80421320 

GEN<"r"tl#7>J 80421340 

PASSPFRMTAR !« REMEMBERPOSN) FTRSTTIME «= TRUE) 80421350 

00 80421360 

BEGIN 80421370 

TF FIRSTTImF THEN FIRSTTTME !■ FALSF FLSE GENf"#"* 80421380 

1#7);80421390 

OTFF t* ARdSUBPERmTAB[PERMSUB,PASSPFRMTAB3+i; 80421400 

GFNTOf "y"#M'O00xCuRLEVEL*NAM0FTHlNfl)K(TF DIFF>9 THEN8042H10 

inO pI.SE l0j + 0lFF,CIF DIFF>9 THEN 7 ELSE 6))J 80421420 

PASSPERMTAB ta PASSPERMTAR + 1J 80421430 

ENO 80421440 

UNTIL PASSPERmTAB a MAXPERMTAR OR 80421450 

ARRSllRPrRMTABCARRNAM, PASSPERMTAR! t -i; 80421460 

GFNf"l*l"#3.*5)7 80421470 

END 80421480 

UNTIL PASSPERMTAo ■ MAXPERMTAB) 80421490 

MAXPERMTAB t* 0) 80421500 

END 80421510 

END) 80421520 

% 80608000 

BFGIN 80608010 

BFGIN 80608020 

INTEGFR NAM,Ti'»SCoATCH; 80608030 

NAM t« PARAMTARtIsIC9tl©3J 80608040 

SCRATCH !■ NAMFTAo3[CURLEVEL + l#NAM]; 80608030 

SCRATCH t» SCRATCulTYPE; 80608060 

Tl l» TYPFTAB1 rSCoATCHj; 80608070 

IF Til STRUCT I aND TltFORM < FILES THFN 80608080 

GENT0("H"#m00CfCURLEVEL*l)*NAM#5) 80608090 

FLSE 80608100 

GENmf"v M #1D00;fCuRLEvEL+l) + NAM#5); 80608110 

END) 80608l?0 

MAXPERMTAR Is 0) 90070100 

INSIDFPARFNS isi FALSF) 90070200 

Sf PATCH 519 FDR PASCAL XVI. 0. CONTAINS 1 CARDS. INCREASE RUNTIME STACK. 

Si 



B " XALGOL STACK * 204AJ «TACK » 1024) END. "J X 90120500 

*# PATCH 600 FOR P ASC ALl XVl !o I CONTAINS 22 CARDS. DAOS DEC77 PATCHES. 
f 4l PATCHES RECFTVEn FROM l\ ANrMYHR ANO TRANSPOSED FROM COSY FORMAT BY 

$1 DAVTO A COOPPR. FFBRIIARY 19tA. 
Si 

TFCF1 NEQ SET OR RT NfQ c-MPTYSET) X 20813000 

ANn X 20813050 

(F? NEO SET OR |T WrO fMPTYSET) THEN X 20813100 

IF(F1 NFQ POTNTrRS nR oT NEO NRTYPE) X 20814000 

AMD X 20814050 

(F2 NFQ POTNTFRS nR i'T NEQ NRTYPE) THEN X 20814100 

RFRTN FRR0R(63)J X 40023000 

% - 50059000 

SFN("PRFA0( M .A#2'tJ WRITEEXPRJ GEN( H # M # 1,7 >J X 50079000 

* 50080000 
$ 50081000 

GFNlnc"F M ,FII FID?5)J GEN( M , W , 1 ,7 ) ; X 50082000 

IF F-NUMFRTC THEw X 50086010 

BFGIN * _ 50086050 

QfHt»f n > 1,^7)1 GENINT(TYPETAB2CCURTYPE5); X 50086100 

GENf'%%1 .7)s GENlNT(TYPETAB3rCURTYPEn) X 50086150 

END FLSF fiFNf ">070 m #4»4); X 50086200 

$ SET vniDT 50088000 

* m POP vOiriT 50093000 
TF nAMTAbIiDCLASS*FUNC THFM GrNCFUNCTN , S7»2) X 80037000 

FLSF GrN("PR8CE0U w #8#l>J X 80038000 

TF FOUND AND CTHISmlTOCLA«SS»PR0C OR THI SID. lnCLASS»FUNC ) THEN 80548000 
*«PATCH 601 FOR PASCAllYVT^CnNTAlNS 147 CARDS. EXTENOF SFT MODSi 
*» PATCHES RECFTVEn FROM O.i ANbMYHR ANO TRANSPOSED FROM COSY FORMAT BY 
St DAVTD A COOPfR^ FEBRUARY 1978^ 

%t THTS PATCH MnDIFTFS THF ( SCT HANDLING ROUTINES TO ALLOW SETS OF 0..93 
$ I FIFMFNTS 
$! NP. THE RUN TIMF SYSTEM mUSt BE CHANGED ACCORDINGLY^ I . ". * 

$, ... ... .... ...... .-.; .. -- — -. .......... — ... 

X 40052050 

X 40052055 

PROCFDURE 5PLITfSPLITINY*WTnTHv» X 40052100 

VALUF SPLITINX* WIDTH; X 40052150 

INTEGER SPLITINY, WTDTH i t 40052200 

BFGIW 1! 40052250 

INTEGER It * 40052300 

X 40052350 

TF NUMSYMS+WlDTH L FO MAYSYuS THEN X 40052400 

BFGIN f 40052450 

FOR IlaNUMSYMS STFP -1 UNTIL SPLITINX 00 X 40052500 

SYMTABrT+WTOTHl la SYMTABfHJ X 40052550 

FOR !«*i STFP 1 UNTTL i-IOTH DO X 40052600 

SYMTABTSPLTTINX+I-H '? "3000000"; % 40052650 

NUMSYMS I* NUMSYMS + WtDTHJ X 40052700 

FNH X 40052750 

FLSE 40052800 

RFGTN * 40052830 

ERR0R(63)I % 40052860 

NUMSYMS !■ 'l'j X 40052890 

FMOJ X 40052900 

END OF SPLITJ X 40052950 

X 40052960 



X 



40052963 



FNOI X, . „ 40188005 

TT TYPfTABl tCURTYPFl.FnRMKSFT tHFN X *** SET VARTABLFS 40188010 

BFGlw % *** ----------- 40188025 

TNTFGFR THISSYML* TJ X 40188050 

X 40188075 

SPt iTfSTARTSYM,!)} SYMTAo r STARTSYM] is "SLOADCJ X 40188100 

TF SIMPLFVAR THFN X 40188J25 

RFRTN * 40188150 

PUTSYMf»# M )J X 40188175 

PUTin( M W M H000xTHTSl EVpL + TH I STNDEX, 5 ) I X 40188200 

FNH X 40188225 

FLSF X 40188250 

TF TNBRACKFT AND NOT TNPECnRD THEN X 40188275 

BFftTN * 40188 300 

PUTSYM(«,")J THTSSYMi' l» NUMSYMS! X 401883?5 

putconst(O); putsyM(« m ); putsym* ",*>; x 40188350 

fop i i-startsymil step 1 until thissyml do x 40188375 

PUTTEXTfSYMTABfT.nl 40188400 

PlJTTEXTf" U "51 * 40188425 

FNH X 40188450 

FLSF X 40188475 

RFGJN * 40188500 

THTSSYMI !■ NUMSYMS? X^ 40188525 

IF INBPACKFT THFN PilTSvMf "J" ) t X 40188550 

FOR 1 1 » 1 STEP 1 UNTTL wUMPOINTFRS DO X 40188575 

BEGIN X 40188600 

PUTTEXTf"-nDTV"j; PUTTFXT( M 1022, M )J X 40188625 

PUTTEXTC" T MOD»)J PUTTFXTC" 1022]")! X 40188650 

END1 X 40188675 

PUTSYMf«,")J X 40188700 

FOR II«STARTSYM+1 STEP 1 UNTIL THISSYML DO X 40188795 

PUTTFXTf SYMTARrmi X 40188775 

PUTTEXTf" +1 ")J * 40188800 

IF INBPACKFT THFN PIlTSvMf "U" ) J X 40188825 

FOR 11*1 STFP 1 UNTTL wUMPOINTFRS 00 X 40188850 

BEGIN X 40188875 

PUTTEXTf w -nOTV)l PUTTEXTC 1022,")! X 40188900 

PUTTEXTC T MOn»MJ PUTTFXTf 10223">l X 40188915 

ENOJ X 40188930 

NUMPOINTERS 1= 01 X 40188945 

FMOI 40188960 

PUTSYMf ,"51 PUTCONSTfCAoOCNT); PUTSVMf ">») J X 40188975 

END nF SET VARTABLFS! X 40188990 

$ 40198000 

TF TYPFTARl fTMlStn.TYPEl >ORM«SFT THEN 40274200 

RFGIN X 40274220 

GPNf%",?*7)7 X 40274240 

GENTOf "W«.10n0xTHISLFVEL+THTSlN0EX#5)l X 40274260 

ENn; X 40274280 

ROOLEAM FIRST, SPl TTTEnT X, 40296000 

PUTTEXTf"SFTBSO! PuTTEXTC" 3,2, ")J PUTCONSTf C AROCNT 51 X 40529000 

PUTSYMf") M )l * 40529300 

CURTYPF «■ EMPTYSFTJ CIJRMODF I* NUMRFRJ X 40529600 

STARTSYM t* NUMSYMS + II X 40533500 

PUTTFXTf SFTRf H 5I X 40536000 

PUTSYM{«,«»)| sYM^BTSTARTSYM] t « "SETBSC"! X 40544000 



TF SPl ITTFO THFN PUT«YM ( " >" ) ) X 40551500 

IF CURSY. COMMA TMFN f 40552000 

BEGIN X 40552200 

SPLlT<STApTSYM»l>) SYMT AB t ST APTSYM ] Is "SUNIOC") X 40552400 

PllTSYMf M » w )J * 40552600 

SPLITTFH l» TPUF* * 40552800 

END) X. . 40552850 

NEWTYRE) T1 l» SFT) Tl.SIZF la 2) Tl. STRUCT I* 0) X 40558000 

CUPMODF l» NUMRFR) * 40561000 

IF CURTYPFoROOLTYPF THfN X 40587000 

IF CURSY NF9 ANOSY THEw ERR0RC643) 40593000 

FNO ELSE X 40593100 

?p F«SFT THFN X 40593200 

RFOIN * 40593300 

IF CURSY*ASTFRTSK THFN X 40593400 

BFfilN X 40593500 

SPLTT(STARTSYM.1 )) SYMTARtSTARTSYM] l* "STNTSC") X 40593600 

PUTSYMf,«)j % 40593700 

END ELSF ERR0R<64>) X 40593800 

MODE I* NUMRFR) X 40593900 

TF F-SFT THEN PUTSYMf") w W X 40608500 

SPLlT(STARTSYM»i" Jl * 00650000 

IF CURSYsPLUS THEN SYMTARtSTARTSYM] !■ "SUNIOC" ELSE X 40651000 

IF CURSY«MTNUS THFN SYmT AB t ST ARTSYM ] l» "SDlFFf" ELSE X 40652000 

ERR0RC64)) X 40653000 

PUTSYM(«#"5 ) MODF l« NUMBER) X 40654000 

% 40655000 

TF FmSET THFN PUTSYMf » J" \ ) X 40668500 

$ 40688000 

IF CURSYafOLSY THFN SYmTAB C ST ARTSYM] is "SEQUAf" X 40713000 

ELSE X 40713150 

IF CURSYaNFOSY THFN X 40713300 

BEGIN X 40714000 

SPLTT(STARTSYM.i); SYMT AB t STARTSYM 3 I « » NOT M ) % 40714150 

SYMTABfSTARTSYMin 1= "SEQUAC") X 40714300 

IF TYPFTAB1 f i_ FFTTYPF 1 .rORM*SET THEN X 60080100 

BERIN X 60080200 

SYMTABF15 !■ "SSTOof") NUMSYMS l« NUMSYMS - 3) X 60080300 

EXPRESSION) X 60080400 

PUTSYM?")")) rHFrKTYPESaEFTTYPF#CURTYPE)) X 60080500 

WRTTEFXPR) X 60080600 

ENO ELSF „ 60080700 

TF TYPETAB?TTY] LSS n OR TYPFTAB3CTX1 GTR 93 THEN ERROR(M)) 70210000 

Tl^SIZF I* TSI7F I* 2) TYPET ABl CTYPFT NDEX] I* Til X 70214000 

IF TUFORM*SFT THFN X 80046200 

BERTN X 80046400 

GENf%",1,7)) GFmTDC"W#LEVEH000 + NaM,5)) X 80046600 

ENn) X 80046800 

TF TllFORM.SFT THFN * 80064700 

RFGIN X 80064750 

GFNC",0"#?,65J X 80064800 

IF MOT PARAM tHEm GEN( " 1 1 "# 2> 6 > ) X 80064850 

FNO.J * 80064900 

BFGIN X 80608105 

IF TliFORM.SFT TH r N X 80608111 

RFGIN X 80608113 

GFNf",%l';7)7 X 80608115 



GFNTOf "W".10«0xf CURLEVEL+1 )+NAM,5)l % 

FNDJ 
ENDJ * 

IF TYPFT 



THFN RFG 



FnD 
SfPATCH 60? FOR PASCA 
$1 RFCFTVEO FROM DAg 
St DAVTO A COOPfR , H 
NTLTYPF «* 61 
'Ti.FnRM »"■' POINTERS J 
EMPTYSFT la 7; % 
T1.F0RM I* SET; TY 
NiiMtYPFS »■ 7t % 
$# PATCH 603 FDR PAST 
DAVID A CnnPFR t 



$1 

$t 



$# 

$ 

% 

% 

$ 



s 
s 
$ 
s 
s 
$ 



80608117 
80608118 
80608119 

AB1 tNAMETAB3rCuRLEVEL+l#PARAMTABtT]iPARAMNAME].TYPE80627200 

KfORm«SET 80627205 

TM % 80627400 

GFNC».*%?»7)I X 80627600 

RFNTnr M W«#1000x(CURLEVFL+l3*PARAMTABrn.PARAMNAME 80627800 

>*>\i X 80627801 

i 806278^0 

l yvi./ contains 5 cards! corrfct representation of "nil*. 

I. ANfiHYMR nN 6/07/78. 

FRTOT-WATt UNIVERSITYI.I JULY 19781 

**** TYPE OF "NIL" **+ 20363000 

TYPFTA0IC6] «« Til 20364000 

20364500 
PFTAB1T7] t» Til 20365000 

20365500 
AL IXV T !0l CONTAINS 6 CARDS, CORRECTION TO PATCH 601 

s d awdfdson, hfriot-watt university. ust august 1978 



INTEGER STARTSYM 
PUTDUMMYI STARTSY 

SPl ITfFTRSTSY 
IF CURSY * PL 
IF CURSY * MT 
ERR0R(64)J 
PATCH 6l5 FDR PASCAL IxVT Itil CONTAINS 7 CARDS 



"»FTRSTSYM e 
'M |s ftRSt 

'M*1 )l . .. 
-US THFN Sv 
fNUS THFN i 



M0DE»TyPE1#FI 
SYM !» NUMSYMSJ 

MTABtFlRSTSYM] l- "SUNIOr" FLSE 
YMTABtFlRSTSYM] l» W SDIFF( M ELSE 



40618000 
40621000 
40650000 
40651000 
40652000 
40653000 



tf tnstoeparEns A 

TYPFTAR1 rCURTY 



PATCM 700 FDR PASC 
TO IMPROVE RUN TTM 
TMF COMPILER HAD A 
TO THE PRDCFSS TTM 
THRASHING IN 3?k! 
RFARRANGING tHF SF 
SD AS Tn AVOTD PUL 
RFLFASE CODE SEr, M F 
CROSS RFFERFWCE RO 
SFGMFNT WHICH IMCL 
A FEATURE WHtCH CO 
NUMBER OF "OFFINFS 
GFWFRATFO IN-LINF, 
WFRF READILY CHANG 
DFFTNES FOR CODE I 
BLANK LWS REPFAT 
OFFTNESli 
NIL S A OTTF* UN 



ND STMPLEw 

PF3>nRM «. 

ai_Ixvt!o 

F FFFTflEw 

HIGH nVEo 

F# ANn 0B« 

this pat? 

GMFNTATIOm 

Ling rnDF, 
NTS AS SOr> 
UTTNES WEo 
UDFD VaRI« 
NTRTBlljEO, 
" WHICw Re 
SOMETTMEe 
FD INTO Po 
S THAT. THr 
TNG THF Sa 



AR AND TYPETABirCURTYPE], STRUCT > 
FILES THEN SYMTA8 t ST ARTSYM ] . t 35 t 6 

*' H " I 

has 179 cards! reduce thrashing 
cy by rearranging the thf compilers 
lay i/o timf and high elapsfd time 
frvation of thf b5700 confirmed tha 
h attempts to reduce thf core requi 

of thf codf. large segments are e 
that will not bf executfd into core 
n as execution has passfd. for exa 
f all contained in the largf outer 
us utility routines^ 
significantly to large sfgmfnts was 
sulted in sizeable sections of code 

many times in one segment, these 
ocedures. (a stoe effect of virtual 

"BEND" OPTION NO longer results IN 
ME SEQUENCE NUMBER FOR FVERY "END" 



AND 
1 I ■ 



401 
401 
401 
401 
401 
401 
401 
BY CODE C 

CODE. 
IN RELATl 
T IT WAS 
REMENT BY 
LIMINATFD 

AND TO 
MPLE# THE 
BLOCK COO 



05100 
05200 
05300 
05400 
98500 
98600 
98700 
HANGE 

ON 



TVFRSTTY nP NATAL* DURBAN. 



AUG - NOV 1977, 



THE HIGH 

BEING 
"DEFINES" 
LY ELIMINATING 

NUMEROUS 
TN THE NESTED 



10167000 
10168000 
10169000 



NAMF1,NAMf2 

NIAMF1*NAMF2 



printerrors; 

HEADING; 



vai'iif 

REAL 
INTFGFR 

forward; 
procedure 

PROCFOuRE 

BFGIW 

FmD pF HEADING; 

PROcFmiRE PRINtLINf; 

BFGIm_ 

END OF PRlWTtlNF; 

PROCFni'lRE nEWCARO) 

BFGIn 

RFPI.ACF XLlNEPNT 

rfplacf limfpmt 
fnd of nEwcard; 

OfflNf. GEN,(GFNl,6EN?»fiFN3) 
GFNlOf fiENlDl*GFNl02»GFNTD3l 

procedure. genifgent* txt* 
valuf gent, txt, nmm* nj 
boOlfan gent; alpha txt; 

BFGlw 



.table.decl; 
; 

table; boolfan oecl; 



forward; 



BY 

BY 



M W p 

CARnP 



%'+** PRINTS A HFAOlNG AT START OF NEW PAGE 
OrFINE NEWSEGMENT ■ HERE *l 

%'*** prints a pascal sourcf code line 

DrFlNE NEWSEGMENT ■ HERE *t 

%'*** READS A NEW PASCAL SOURCF CODE CARD 
DpFINE RESULT ■' ICARDt*]. FTC *i 

Oo 16 words; 

Nt FOR 10 WORDS* XLINEPNT FOR 6 WORDS; 

GrNHTRUE#GENl,GFN3#GEN2> #> 
GrNl(FAL5E.GENIDl»GENlD2»GFNl03) #} 



num. n >; 



TNTrOER NUM. N; 
DfFINE START i 



NUM #. NDTfi ■ N #| 



IF GENT 
TFXTtOI 

END 

ELSE, . 

CHfOl I 

END FND GF 

PROCEDURE 

valuf n; T 

BFGIn 

TNTFGEP 

end .of geni 

PROCEDURE W 
HFFTNE 
DEFINE 
nFFlNE 
DFFINE 

alpha this! 
procedure 
valuf tab; 
end of seap 
prOcfDi'irE 

BFGIM 

end of seap 
procfdurE 
valuf name1 
alpha name1 

"END" OF NEWN 
PFFTNE 
nFF|NE 

nf'F'T"NE" 

PROCFDURE 
VALUF IFFTT 
BFGIM 



THFN 
«» TXTI 



■ txt; 
ni; 

6ENINT( N 

nterfR n; 



V 



«*** GENERATE A TEXT "TXT". CONSISTING OF 



X*** GENERATE AN ALGOL IDENTIFIER. 



OrFINE RESULT « ALGOL CODF *t 



nabs* nst7f; 
nt; 

RlTEALGnL; 

newsfgmfnt 
newsfgmfnt 
newsfgmfnt 
newsfgmfnt 

0. CLlRNAMF 
SEARCHTARf 

intfger t 
chtab; 
search; 



«*** WRITES A COMPLETED ALGOL CARD TO 

■ HERF #7 

■ HERF *l 
» HFRF #7 

_ 9 HERF «7 

1, CURMAMr?; % USED IN SCANNER 
TAB M %!** SEARCH NAME TABlE "TAB" FOR THE 
AB; Xl** IDENTIFIER JUST REAOl 

%i** SEARCH ALL TABLES CURRENTLY IN USE. 
OrFINE RESULT - THlSfD *l 



ch; 

NEWNAMEf N 
* NAmE2, T 
. NAME2; 

ame; 

newsfgmfnt 
newsfgmfnt 
newSfGmfnt 
checktypfs 
ype* right 



AMFl.NAMEo* TAB ) ; 

ab; 

INTEGER Tab; 

■ HFRF #7 

* HFRF #7 
■"'i HFRF #7 
f LEFTTYPe* RIGHTTYPE ); 

type; intfger lefttype* righttype; 



20016000 
20017000 
20018000 
20019000 
20020000 
.20026000 
20027000 
20033000 
20036000 
20037000 
20047000 
20050000 
20051000 
20056000 
20057000 
20061000 
20063100 
20063200 
20063300 
2006.3400 
20063500 
20063600 
20063700 
20063800 
20064000 
20067000 
20070000 
20073000 
20076000 
20079000 
20082000 
20083000 
20084000 
20085000 
20097000 
20145000 
20146100 
20168100 
20180100 
20193100 
20205000 
20208000 
20208100 
20221000 
20223000 
20224000 
20233000 
20236000 
20236100 
20236200 
20250000 
20515100 
20533100 
20546100 
20802000 
20803000 
20804000 



rfal tt1# tt2; tntfgfr fl. f2> lt» rt) 
end of checktypfs; 

PROCrnilRE FjLFPARAMf DFFAUl TFjLF ); X*** CHECKS THE FjRST PARAMETER 

VALUF nFFAULTFTlEI TNTFfiFR nEF AllLTF ILF t%*** TO SEE IF TT IS A FILE! 

BFGlw OEFTME RFSUi'TS « FILENAME « LPARFOUNO *i 

END (IF FlLFPARAMi 

RFAL CURVAlJ TMTERFR CllRLFwGTu; 

PROCFnyRE CONSTANT? CyAL* fTYoF )i 

rfal.cvali intfger ctypf; 

BF6IM 

INTEGER TFORMJ BOOLEAN STftNEO* NEGATIVE; 

END nF constant; 

$ 

ALPHA r,» CXi Xf CURNiMET ft CURNaME? MOVED TO 20205000 ) 

TWTFGFR LASTCHARPOS; % t C ( j»VAi'* CuRLENGTH MOyFD TO 20872000 3 



PROCFnuRE iNSYmBOL,* 
BFGIn 



s 



PROCEDURE NEXTCHARJ 
FMD OF NFXTfHAR; 



DEFINE Tl * EY,P *l 
BEGIN 

END newsfgmfnt; 



X*** IDENTIFIES THE NEXT SYMBOL ****** 

X*** GETS THE NEXT CHARACTFRi 

SET VOIOT 
POP VOIDT 
X USED AT 30178000 

DEFINE NEWSFGMENT « HFRE ■# J 



INTEGFR ExPRLFvELJ 

DFFinF PUTSYMfS) ■ PUTTFXTf C S >*1 f 41 » 5 I 6] ) #j 

$ 



OFFINF PUTHUMMY 

S 

$ 

PROCFOURE WRITFEXPRJ 



SET VOIOT 
POP VOIOT 
PUTTFXTr**00o000 w ) *l 

SET VOIOT 

pop voinT 

X;** WRITE GENERATED ALGOL EXPRESSION 



RFAL Sx; INTEGER T1» TV? 
FND nF WRITEEXPR) 
PROCFOURE CHECKEXPRf Ll .IM, ULtM ); %* + * WRITE CODE TO CHECK VALUE 

VALUE I LTM, ULTMj TNTFfiER LLIM, ULIM; 
BFGlw DEFINE CHECK ■ VALUE tl 

END OF checkexpr; 

INTEGER Tl# T5; X USED ONCE EACH 

Tl»*T.FIRSTWTTHSYMJ t5 • ^T.LASTWI THSYMI 
FOR Tll«Ti STFP 1 UNTtL t«5 DO PUTTEXT (W tTHTAB [T H ) i 
OFFINE Tl s T #J % USED AT 40558000 
* SET VOIDT 

S POP VOIOT 

PROCEDURE PARAMETFr; X*** CHECK THAT THE FUNCTION HAS 1 PARAM 

BEGIN 

insymrhl; 
if cursy»lpar 
then begin 
putsymf"f m )j in«ymbol' expression; 

IF TYPFTAR1 rcilRTvPE].FORM«NUMFRTC THFN CURTYPE IMNTTYPEJ 
IF CURSY*RPAR THrN BEGIN ERRORm; SKIPCRPAR") ENOJ 



20805000 

20838000 
20844000 
20844100 
20845000 
20869000 
20872000 
20873000 
20874000 
20875000 
20876000 
20876100 
20921000 
30082000 
30083000 
30084000 

30087000 
30087100 
30087?00 
30088000 
30093000 
30095000 
30O9800O 
30099100 
30261100 
30282200 
40016000 
40017000 
40018000 
40029000 
40029900 
40033000 
40041000 
40042000 
40044000 
40053000 
40054100 
40066000 
40069000 
40069100 
40070000 
40077000 
40086100 
40094000 
40095000 
40298000 
40299000 
40309000 
40331000 
.40332000 

40333000 
40334000 
40335000 
40336000 
40337000 
40338000 
40339000 



PtlTSYMf '•)")! IF 
END ELSE FRRORM)J 
END OF PARAMFTFRj 



CURSYwRPAR THFN 
X OR ERRORC58) 



insymbol; 



RF6TN LABEL LABFOUMH* 

THTSTD.IDCl ASS*CONSt 
THISTDilDCLA5S«F!iNC 
THFN ASSlfiNMFNT Fl SE 



AND 800LEAN(THTSID. FORMAL) OR 



$ 
S 



t 



VAIUF 
INTFRFR 



RFCTAR»FlR*TADORJ 
RFCTAB»FIR«TADDR#LASTaDDRJ 



SET 
POP 



SET 
POP 



VOIDT 
VOIDT 



VOIDT 
VOinT 



PPOCPDURE 
T.NTFGER 
8FGIM 

TNTFGER RECTNX, 



TYPFnECLf TTYPF, TSt7E )J 
TTYPF, TStZEJ 



X***** TYPE DECLARATION ***** 
IK**************************** 



ARRSTRUrT, TX* SX, T* N; REAL Tl> T2, T3J 



ROOLEAN FIRST* PACKFOJ 



FND TYPERRJ 

PRHCFDURF SURRANGFJ 

BEGIN 

RFAL VALX1* VALX2, 
TNTFGER TYPFXi, TYPfX?} 



Tl 



X*** SUBRANGE DFCLARATION *** 
X**************************** 



CONST ANT CVAl.Xl, TYPFX 1)1 

TF TYPFTABirTYPFXn>ORM>CuAR THEN ERRORfll)* 

TF CURSY^DOUBLEOOT THFN ERe»0R(53>J 

TMSYMBRL* 

CONST ANT «VAlX2, TYPFX?) J 

TF T YP FXJ>0 AND TYPFX?>n TuFN 

TF TYPEXlrfTYPFX? THFN ERoDRfll) ELSE 

TF VALX1>VALX2 THFN ERo0.R(54)J 
TF fTll«TYPFTAB1 TTYPFX1 I.FnRM) * SYMBOLIC THEN Tl » ■SURTYPEJ 

kifwtypfj ttypfistypfinhexT 

tiIsizfi»tstZE!«i ; ti Irtri\cti«oj ti.matntypfi-typfxi f 

TYPFT AR H TYPE INDEX! I «T1 J 

TYPFTAR2CTYpElNDFXll«VAi Xl7 TYPET AB3 1 TYPFINDEX 3 I «V ALX? I 

End df subrange; 

define dec ■ potntfr #j 



DEFINE 
DEFINE 
DEFINF 
DEFINF 



lARFL CASEPART* EXTTi 
RFGIN 

lap-el casetypetd; 

FND J 



DEC 
DEC 
DEC 

DEC 



ARRAY #) 
FILE *l 
SET *} 
RrcORn #j 



DEFINF DEC - VARIANT *} 



DEFINE DEC • FILE #1 



DEFINF DEC 
DEFINE DEC 



LABEL 
CONST 






4O34000O 
40341000 
40342000 
40350000 
60396000 
60399000 
60423000 
60423200 
60424000 
70013000 
70016000 
70018000 
70019000 
70022000 
70034000 
70035000 
70036000 
70037000 
70038000 
70039000 
70040000 
70041000 
70042000 
70048000 
70050000 
70051000 
70052000 
70053000 

70054000 
70055000 
70056000 
70057000 
70058000 
70059000 
70060000 
70061000 
70062000 
70063000 
70064000 
70065000 
70066000 
70067000 
70068000 
70069000 
70117100 
70143100 
70180100 
70200100 
70220100 
70247000 
70285100 
70285200 
70349100 
80066100 
80107000 
80424100 
80447100 



$ 



tf c 

THFN BF. 
FND. OF 

Patch 7o 
th TMPRn 

CONTRIBU 
DATA ARR 
OF THE C 
IMPOSING 
NAMFTAB? 
TO fOI30 
A i AR6F 
FROM ZUR 
THF P4 P 

rfouceo 
constant 

**** NOTF 
PASC 
"MAXNAMF 
FUNCTION 
AND HASH 
"INPUT", 
NT iS A 



$ 
% 
$ 

$ 

s 

ft 

$ 
$ 
s 
s 
s 
$ 
$ 
* 
* 
t 
$ 
$ 

BFF'lNF- 



MAXT 
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URSYaF 
GIN 

SEGMFN 
1 FOR 
VF RUN 
TIOM T 

Ays! t 

OMPTl E 
UNRFA 
, NAME 
, OMO 
PASCAL 
ICH. 
ASCAt 
TO M 
AT 9 
THAT 
AL/PRE 
S" TS 
. THE 

iNnrx 
••oiitP 

OTTF, 

ABLFS 
AMFS 



UNCSY OR C!lRSv«PROCSY 



t for proc 

pascalIxvt 

ttmf ffft 

THF COMP 
HTS PATCH 
R BY MAKTM 
SONAB|_F RF 
TAB?, NAMF 
7ll THFSF 
PROGRAM 

In Fact* p 
comptlfr t 

INUTFS RY 
MINUTFSl 
IF "MAXNAM 
LUOE THAT 
CHOSFN AS 

pascal in 

. HFNCF C 

UT"» I "PR 

UNTVFRST 

■ 30 f, 
■307 #, 



FOUoF 
!o ?0N 
ClEwCY 
TLE°S 

suc"fp 
r, m«st 
STRtCT 
TAB* H 
„REnUC 
P ApOU 
pIOq T 
dok 60 
THEiF 



OECLAR 
TAINS 

BY RF 
THRASH 
OS IN 

OF JH 
TONS. 
ERE EA 
TIONS 
T 4000 
THF 

MINUT 
PATCHF 



DEFINF 

OEFINF 
X 

OEFTN 
ATIONSJ 
14 CAROS 
DUCING A 
ING BFHA 
DRASTICA 
E LARGF 

IN PART 
CH C0«50 
HAVE NOT 

LINFS, 
CHaNGFS 
ES FLAPS 
S# WHTLF 



DEC 
DEC 



TYPE *i 
VAR #1 



E DEC ■ CODE *i 



. REDUCF J 
RRAY SIZFSl 
VIOUR WAS T 

LLY reoucin 

ARRAYS MUCH 
ICUL.AR* THE 
, 0M0223, 

PrEVENTFD 
NAMELY THE 
INTRODUCED 
ED TIME TO 

THE PROCES 



HRASHING BY 
THE MOST 

he excessiv 
g thf core 
smaller wi 
three arra 
and have be 
the compila 
pu pascal c 
by Patches 
compile, wH 

S TIME HAS 



80475100 
80496100 
80540900 
80540910 

80^58100 
ARRAY CUTS 
SIGNIFICANT 
ELY LARGE 
REQUIREMENT 
THOUT 
YS, 

EN REDUCED 
TION OF 
OMPILER 
700 * 701, 
ICH wAS 
REMAINED 



FS" TS CHANGED THFN THFRF ARF 7 DEFINES IN THE FILE 

MUST ALSO BF CHANGFO. 

A PoTME NUMBER AS TT IS USED AS A MODULUS FOR A HASH 

FNTtFIERS ARE TRANSLATFD TO ALGOL NAMES USING LEVEL 

MANr.TNG m MaxNAMFS m CHANGFS THE ALGOL NAMES FOR 

T25«: 

TY nF NATAL, DURBAnI AUG - NDV 1977,1 



PA 

TO 
TH 
1? 
IN 

WH 
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$* 
S| 

Si 
Si 

S» 
Si 
Si 

Ji 

ARRAY 

OFFlN 

F 

R 

S* PA 

$i TO 
Si TH 
Si St 
Si Sp 



XmAX number of lfvels in 
XmAX namfs in each row of 

* ONLY USFD IN WITH STATEM 
MAyCASES »64 *,' XmAx LABELS IN A CASE-STAT 
MAXLABS «50 #, XmAX NUMBER OF LABELS IN P 
MAXPARAMS »200 #, XmAX NUMBER OF PARAMETERS 
MAXTYPFS »2S0 f, XmAX NUMBER OF DIFFERENT T 
MAXCONSTS «100 #, X«TZE OF TABLE FOR CONSTAN 
MAXWITHSYMSb 70 #, XmAX NUMBFR Of SYMBOLS USF 
MAXSYMS *?00 «, XmAX NUMBER OF SYMBOLS IN 
LISTLENGTH -100 «, XuAX LENGTH OF VAR & PARAM 
MAXFXTFTI ES-10 #,* XmAX NUMRFR OF EXTERNAL Fl 
MAXFILES .10 #» XmAX NUMBER OF FILES DECLA 
MAXPNTRS »10 #» XmAX NUMBFR OF UNDECLARED 

TCH 702 FOP PASCAI.Ixvt!o CONTAINS 4 CARDS. BOOLF 
FXTEND THF RFDUCTTONS OF PATCH 701 TO THF BOOLEAN 

F SYNTAX FRRORS THAT HaVE OCCURRED, THIS PATCH CO 

D WORDS TO 4 WORDS BY iiSImG 32 BITS IN FACH WORD. 
ADDITION, THIS PATCH TNSrRTS THE ERROR COUNT ON T 

TCH RFPORTS THF SYmTAX ERbORS. 

TLS A OTTF, DNTVFRSTTY nF NATAL* DURBAN^ 



IDENTIFIER TABLE 

IDENTIFIER TABLE 

FNT TO TEST 

EMENT. 

ROGRAM, 

TN WHOLF PROGRAM 

YPFS. 

TSl 

BY WITH-STATMS 

ONE EXPRESSION. 

LISTS. 
LESI 

RED AT ONE TIME. 
POINTERS CFORWO) 
AN ARRAY "ERR" 1 

ARRAY "ERR" FOR 
MPRFSSES THF ARR 



.10042000 

.10043000 
10044001 
10045000 
10046000 

,10047000 
10048000 
10049000 

.10051000 
10052000 
10053000 
10054000 
10055000 

.10056000 

20 TO 4 
NOTING 

AY FROM 



HE LEFT OF THE LINF 



FRRPfOt31|. 
F ERRCERR11 
RRPIERRNuMlt 

fplacf point 

TCH 703 FOR 

IMPROVE RUN 
TS PATCH RFD 
7FS AND ALSO 
FFD. THE 51 



X HOLDS 
* ROOLEAN 

Al2 3H«ERR 
ERf FRRl TNf 
PASCAI.IXVT 
-TTMF FFFT 
UCFS THF S 
THF NUMBF 
ZF OF THF 



AUG - NOV 1977. 

?28 BITS X RECORDS ERROR MESSAGES USED. 10156000 

fO*pRRP[ERRl,[6l21H0»ERRl,f4l5Hn ) #) 10156100 

PtEPRNuM,C6l2n * lfERRNuM.C4l5ll0ll 3; 20182000 

rO]W4 BY NUMERRS FOR 4 DIGITS, 20194900 

!o Contains 6 cards, reoucf thrashing by savf corf 
CIEmCY by rfducing non-overlayable areas. 

AVE CORE REQUIRFmEnTS BY DECREASING THE FILE BLOCK 
R 0? BUFFERS WITHOUT UNDULY RETARDING THE COMPILATION 
nlSl? AREAS IS KEPT A MULTIPLF OF THE ORIGINAL BLOCK 



COMPARABLE REDUCTIONS 
1977; 



Si ST2F WHFRE RfLEVANT TO AVOIn INCOMP ATlBTLT TY PROBLEMS. 

$1 IN BLOCK 8JZFS OFTHP OR..)FCt PROGRAM are al§0 made. 

Si NIKS A OTTF. MNTVFRSTTY nF NATAL* DURBAN. AUG - NOV 

Si 

FTLF CARD "SOURCE" f 1 ,'l 0*30 >l X PASCAL SOURCE COOF INPUT FILE 10035000 

FfLF -PASCAL60L rilSK SFRT AL . r 20 • 3003 C 1 * 1 0* 30* SAVE 0)1 X ALGOL COOF FILE10037000 

FTLE VREFFTLE DTSK SFRIaL r?OliOOOl Cl,3»30)J X FOR CROSS REFERENCE 10137000 
TF RECSTZF"! OR RFrSlZE*10 THEN 0FNINTC30) 80119000 

GENf%SAVF",*6,lV/ 80122000 

GENf w 30); M ,,A,42i 80123000 

PATCH 704 FOP PASCAL. XVI. HAS 8 CARDS. REDUCE OVERHEADS IN COPYING FILF 
Tf? REDUCE THF COMPTLFR-S OVERHEADS. FIRSTLY* THF ALGOL CODE FILE 
PASCRUN/OISK IS RFNAMFO P a SC AL/PRFLUDE; ORIGINALLY* THE COMPILER COPIED 
TWF_PASCAL/PRELUOE_FTLF TNTn THE GENERATED CODE FILF BEFORE STARTING TO 
TRANSLATE THF PASCAL PRflr.RAu! THIS PATCH SAVES THE 3 SFCONDS OR SO REQUIRED 
FAR THIS BY SETTING THf "TAdf" OPTION FOR THE ALGOL COMPILER AND LABEL 
EQUATING THF TAPF.FTlF TO P a$C AL/PRELUDE , THE OVERHFAO TO THE ALGOL COMPlLFR 
IS NF6LTGIBLF. THF, AOVANTa!?> IS EVEN GREATFR IF THF PROGRAM FAILS TO 
COMPILE SYNTAX FRFP. THr F?|.E PASc AL/PRELUOE IS NO | ONGER REFERENCED 
OTRFCTLY IN THE PASCAL CnMPtLER. 
SFF, PATCH 7\\. THIS NFFnS oATCH 705. 
NTI S A OTTF. IINIVFRSTTY nF NATAL* DURBAN^ 



S* 

Si 

Si 
Si 
St 
Si 
St 
St 
St 
St 
SI 

Si 

$1 



AUG - NOV 1977. 



ERRORS 

ALIST 

MERGE 



TERMMESS ("#*** 
WRlTF(PASCALGOL»MFRGF)l 
S 



U5#" ERRORS OrTECTED "*20C"#") /)» 
("t SFT LIST "'^» 
f"S SFT TAPF dESET S« / 
M $ RFSFT TAPE"* T73*"99000000" >* 

CHMPtLATION TERMINATFD* W 5J 
X ALGnL MUST COMPILE PRELUDE FTRST 



S 

Si 
$# 
Si 
St 

it 

Si 

s 



St 



SET 
POP 
. .. "i ALfiHL FILF TAPF- P aSC AL/PRELUOE SERIALJ ALfiOL FILE 
PATCH 705 FOR PASCAL. XVT.O CONTAINS 21 CARDS. GENERATE 
THIS PATCH TTDIFS HP THF COnF THAT GENERATFS THE ZIP TO 
COMPATIBLE AL.GOL COMPTLFRi 
NILS A OTTF, UNTVFRSTTY nF NATAL* DURBAN^ 



10188000 

10189000 

10190100 

10190200 

10192000 

90022000 

VOIOT 90023000 

VOIOT 90032000 

CARD« W * 90119000 

A BETTER ZIP 

PASS CONTROL TO THE 



S 

s 
s 



AUG - NOV 1977, 



PROGNAMF Is IF CURLFNGTH < 7 

THFN " "*rl)RNAMEirail6xCURLENGTH-l tfixrURLENGTH] 

ELSF CURNAMF2#r5l6HCURNAMElf 41 « 35« 36]; 
ARRAY 7IPARRAYC0MA1* 

nFFTNE PPROftNAMF ■ 13 *\ PALGOLNAME • 14 #* 
PLI3RARY ■ l"5 *'. PUSER ■ 16 #* 

P(P1) » POlNTERrZIPARRAYtPHUl FOR 7 *) 



SET 

POP 



VOinT 
VOIOT 



ZlPARRAYtPPPOGNAMFl|»PPnGNAME) Zl pARRAYt PAL^OLN AME3 I ■ ALGOLNAMFJ 
7TPARRAYCPLTBRARY5l« IF SA\/FFACTOR>0 THEN "LIBRARY" ELSE 

TF SAwEFACTOR<0 THEN " SYNTAX" ELSE w & RUN 
7IPARRAYCPUSER1l*t)SFR; 
RFPLACF P0TNTER(ZTPARRAVC*1) BY "CC COMPILF % 



P ( P P R N A Mi") , " / " , P ( p I) S E R ) * 
H . XALGnL "* PfPLIBRARv)* 

"i Algol fuf tapf^ pascal/prelude sfrialj Algol file 

PfPALGOLNAMF), "/".* "P»'PUSER>» M SERlAli END. H J 



CARD" 



90013000 
90042000 
90042010 
900420^0 
90092000 
90095000 
90096000 
90097000 
90098000 

90104000 
90109000 

90112000 
90113000 
90114000 
90115000 
90116000 
90117666 
90118000 
90119000 
90120000 



f 

* SET VOIOT 90121000 f 

* .._.., _ , . „ POP VOIDT 90128000 
$# PATCH 708 FOP PASCAL. XVI. CONTAINS 25 CARDS, LINE PRINT FILE MAY BE DISK 

$1 TO FNABlE THF COMPTLFR-S PRfNT FILE TO RE LABEL EQUATED TO DISK AS FOR OTHER M 

$l B5700 COMPTLFRSl IN PARTICULAR* THIS PATCH CHANGES THF NAME TO LINE TO BE 
*! CflNSlSTFNT WTTH ALL THF jYStFM COMPILERS. THE ABILITY TO LABEL EQUATE FILE 
St "| INF" TO DISK TS MFCFSSARY TF THE COMPILFR IS TO BF USFD FROM A TERMINAL. 
$1 NOTE THAT A RLOCKFD FlLF SHnULD NOT HAVE VARIABLE LFNGTH RECORDS IF IT IS 
St TO BF LABFL FQuATFD TO A PRtNTFR. IF LFSS THAN THE MAX NUMBER OF WORDS PER 
$1 RFCORD TS WRTTTFNt TwF BALAwCE OF THE RFCORD REMAINS UNCHANGED FROM WHAT WAS 
*l LAST IN THE FlLF BUFFER. SO THAT ON BEING PRINTED* "GARRAGE" APPEARS AT THE 
Si END. OF SUCH | 4 INFS^ 

St NILS A OTTF. (InIVFRSTTY n F nATAl* DURBAnI AUG - NOV 1977^ 
$1 

SAVF PILE HUT LINE DISK SFRT AL^. T20 I 12003 (1*17,90*SAVE 1); % PRINT FILE 10036000 

% AvOIn BLOCKING RFCORDS OF VARIABLE LENGTH 10036001 
ARRAY TCARO* ALflOLC ARDf I 91 ," LtNES* XLlNEtO»163; 10130000 

X AVOID RL0CKIN6 VARIABLE LENGTH RECORDS 10130001 

ARRAY HFADTEXT. ERRL TNFTO I ?63 I 10133000 

WRITFf LlNErN03.17*X| TNEr*3 5; 20042000 

WRlTFf LlNEfN03*T7*Xt TNF?*3); 20043000 

WRTTEO INE* 17,L!NESr*]}J 20045000 

WRTTEd INE# 17,ERRLTNEr*])T 20195000 

LTNFPNT !"P0lNTFRfLTNFSri3sJ 20315000 

RFPLACF LINFPNT-P BY " " FnR 17 WORDS; 20317000 

REPLACF XLlMEPNT-ft RY I TNE0NT-8 FOR 17 WORDS; 20318000 

RFPi ACF POTNTER(FRP| TNFr*]> BY ***** ", LlNEPNT FOR 16 WORDS; 20319000 

RFPLACF ALGOLPNT BY LTNFPNt FOR 9 WORDSJ 20321000 

RFPI.ACF POTnTERCHFAOTFXtC*! ) BY LlNEPNT FOR 10 WORDS* "PAGE 1 M * 20326000 

LlNEPNT FOR 6 WORDS; 20326100 

WRlTFfLlMF* l7,XRFFLTwEt*])J 20549000 

t OCKf LTNF* * ); X 8 CRLJwCH 20550000 

WRlTFfLlNF* 17#XRFFLtNEC*3)I L INECNT I *L INECNT* 1 J 20560000 

WRTTFCLTNE* 1 7* XRFFi INrT * 1 ) i L INECNT I »L I NFCNT+1 ; 20571000 

WRTTEUINF* TERMME«!S); 90084000 

WRITF(LINF» NOFRRORSW , 90111000 

WRTTE(LINE* ERRORS*NUMFRRS W 91110000 

WRTTEfLINE* ERR0RMFSS1 r T 3 )T 91112000 

wRTTEMINE, ERRORMFSS?f T-6n15; 91114000 

$# PATCH 709 FOR P ASC AL IxV T ! ^ONTAlNS 17 CARDS. NO PRINT TF NO LIST * NO ERRORS 
$1 TO OPEN THE PRINT FILE HmlY TF THE LIST OPTION IS SFT OR IF SYNTAX ERRORS 
it ARF DETFCTED. TF THF FTrST CARD IN THE PASCAL SOURCF RFSETS THF LIST OPTION 
$l (**l- *) AND NO SYNTAX FrROoS ARE DETECTED* THEN THE PRINT FILE WILL NOT BE 
$1 CRFATEO CEVFN FOR THF HFaDImG) AS FOR OTHER COMPILERS. IN PARTICULAR* THIS 
St "IMPlFMENTATION DOES NOT REQnTRF A TEST PRIOR TO PRINTING EACH LTNE TO 
St DFTFRMTNF WHFTHFR A HFAHTNG HAS BEEN PRINTFD. IT ONLY DOES THIS TEST WHEN 
$1 THF LIST OPTION IS SFT AfTEd THE FIRST CARD OR EXPLICITLY THEREAFTER* OR 
St IN THE "PRINt£RR0RS w RoutINp" 

St MILS A OTTF, IINTVFRSTTY nF NATAL* DURBANl AUG - NOV 1977. 
St 

TF PAGFCNT«i THFN WRTTF«'LlwFtN03*l7*HEADTFXTC*3) ELSE 20029900 

WRTTEf LINFrPAGFn; 20030000 

WRTTEf LINFrDBL]»17,HEAnTEvTt*3); 20031000 

IF NOT LISTOPTION THFN 20194000 

BFGIN TF PAGFCNT*0 THpN HEADING; PRINTLINE FNDJ 20194100 

RFPLACF P0lNTERfHFADTEXTf*O+45 BY TEXTPNT+5 FOR 2#"/ w , 20329000 

TEXfPNT + 1 FOR ?'l M >* TEXTPNT + 3 FOR 2f 20330000 



MFWCARDJ LtSTOPTTONI»ChECkOPTIONi»TRUFJ X 0EFAULT 20402100 

TMSYMBOt; X. ANALYSJNO.FIRST CARD MAY CHANGE DFFAUlT LJST OPTN 20402200 
TF LlSTOPTTnN AND PAGFCmT»« THEN HFADINGJ X ON FIRST PAGE. 20402300 

IF LTSTOPTTON THrN »F PAGECNT»0 THFN HEADINfiJ % ON FIRST PAGE30282100 
C *«? f, "V „ X TO INTTTALT7E MNSYMBOL" 90034000 

TMlTTALlZF) % COmPTlFR TAPLF«, NFWCARD, INSYMBOL 90035000 

* . 90036000 

IF PAGFCNT > f THFRF HAS BFEN SOME LISTING 90088000 

THEN RFGlN WRItE( LTMFrOBl 1 )T WRITER LINFTDBLJ ) ENDJ 90089000 

TF PAGFCNT>0 THFN X THERr HAS BFEN LISTING 90110000 

$# PATCH 710 FOR PASCAlIyVKO rONTAINS 4 CARDSl NO OVFRPRINTING WTTH BLANK LINF 
Si TO PREVFNT OvERPRTNTTNG WlTu BLANK LINES. IF THF OPTION FOR "BOLDFACE" 
$1 PRINTING OF RESFRVFD WORDS »S SET (*SR + *) THEN EACH LINE IS CONSTRUCTFD BY 
St 2.0VFRPRINTS FOR THF RFSFRVrO WORDS ONLY, THEN ONE PRINT OF THE FULL TFXT. 
St THF AIM OF THIS PATCH TS TO SKIP THF OVFRPRINTING FOR ALL THOSE LINES IN 

si which no resfrveo wnpns nccnR. 

Si MTI S A OTTF, HNTVFRSTTY nF NATAL, DURBAnI AUG • NOV 1977,1 
Si 

OFFlMF RESWOROPRESFNT * RFSWOonOPTlONltlll 3 #J 10159100 

TF REAt(RESWOROOPTTON) « 3 THFN % RESFRVFO WORD IS PRFSENT 20040000 

RFSWORnOPTTON I* RFSWORnOPr TON ANO TRUFJ X RESET RESWOROPRESFNT 20057100 
RFSWriROOPTTON t« B00LEAN(3)J % SET RESWOROPRESFNT BTT 30179000 
$# PATCH 711 FOR PASCAlIwtIo CONTAINS 10 CARnS. PASCOOl/llSERCODF UNIQUE NAME 
$t TO OFNERATE A UNTOlIF FTLr NaMF IN THE DISK DIRECTORY. THIS PATCH CHANGES THF 
St MfTHOD FOR fiFNERATING A UNIQUE FILF NAMF FOR THE ALGOL SOURCE CODE OUTPUT OF 
Si THF. COMPILER! FORMERLY. THtS WAS DONE USING THE TIMF FUNCTION TO OBTAIN 
Si SOMF RANDOM nIGITSi THF MFtHOD USFD IN PATCH/MFRGE TS ADOPTED HERE, NAMELY 
Si STARTING WITH THF PRFFTX (MrTD) "PASCOOl'S A SFARCH TS PERFORMED TO DETERMINF 
$1 WHFTHER SUCH. A FRF NAMF. IS ALREADY CATALOGUED. IF SO, 1 IS ADDED AND THE 
Si SFARCH REPEATED. TN ADDTTInN, THE FILE IS CREATED WTTH A SAVE FACTOR 
$l (RFTFNTTON PFRIOn) OF ZFRO nAYS SO THAT A HALT-LOAD WILL REMOVE THE FILE 
Si AUTOMATICALLY! 
St SFF PATCH 704. 

St MTIS A OTTF. HNTVFRSTTY nF NATAL, DURBAN!! AUG - MOV 1977. 
$1 

PROCFDURE SEARCHOTSKOTRECTpRYe* F, A ); FILE F; ARRAY AEOJJ 20222100 

SEARfHf F, AT*] W % END OF SEARCHD I SKDIRFCTORYJ 20222200 

20222300 

CHARPNT l« eOINTFRfrHmi ) + tJ CHtOl t* n "J 20322000 

CHfOI l« "PASCOOO"J CHARPNT l. PO I NTER ( CH t 1> + 5J 90016000 

PASCALGOLiFlD I v USER !■ TTME<-UJ 90017000 

Dn BFGTN ClyC+lJ RFPLACF CHaRPNT BY C FOR 3 DIGITS; 90018000 

PASCALOOL^MFID Is AlGOLMAMr t« CHC03J 90019000 

SFARCHOISKOTRFCTORYf PASCA(>,OL» LINESt*] ); 90020000 

FND UNTIL LlNESro3»-ll X FtTf mOT ON OISK 90021000 

s* patch ri2 FnR pascal!xvt!o Contains 2 cards! mark procfdure levels in margin 
$1 patch to mark thf start and fnd of procfourfs and functions by annotating the 

Si MARfilN WITH THf SYMRfUS » + P« * "-P" FOLLOWrp BY THE LfVpL NUMBER. 

$1 NTI S A OTTF, HNTVFRSTTY nF NATAL, DURBAN. AUG - NOV 1977. 

SI 

MARGlNf"+P M »CURLFVFi ); X MARK PROCEDURF L^VFL 80420100 

MARGlNf "-P",CURLFVFL )l X MARK END OF PROCEDURE 80702100 

S# PATCH 7j3 FOg PASCAlIxvtIo. CONTAINS 14 C ArOS . CORRECTS FRROR MESSAGE ETC. 

S| CORRECTS THE HOURLF "NO EeRORS" MESSAGE AND THE OUTPUT OF HEADINGS 

Si WHFN I 1 IS SET AFTfR I -. 

$1 ALSO CORRFCTS THF SCANKllN« PROBLEM WHEN COMPILER OPTIONS ARE INCORRECT, 

Si OAVIO A CnnPER, HFRIOT-WAtT UNIVERSITY ^1.,^ AUGUST 1978 



St 



pRRnRl02MESS( // w 10? 



**; WARNING ONLY* ILLEGAL COMPILER OPTION. 



TF FRRMtlMslOO flR FRRNuM.lO? 
THrW N|)M(rRP,S la NUM r RRS - 7 



X 
% 



I X*fRROR NllMRpR 102 IS ONLY AN ILLfGAL 
* DOLLAR OPTION WARNING t 
•FRROR NUMBFR 100 ALONF SHOULD NOT 

FLSE LISTOPTION l« C* M * M ELSE 



ENO 

ELSE FRRORf t02>J 
TF ERRM02) THFN 

WRITFfLlNF#FRR0R?O2MrSS); 



S 
S 

$# 

St 
St 



f 

PAT 
TO 



?l02 *** W ARNTNf, PNLYg It LEGAL DOLLAR OPTION, 

cm floo for pascalIxvt.o. Contains 10 cards. 

RFMOVE CONFLICTS RETWrEN HERlOT-WATT «. NATAL 



•♦)# 



EXISTING PATCHFS. 



)10l88750 
10188751 
20181600 
20181610 
20181620 
20181650 
30265000 
30280800 
30280810 
90090710 
90090720 
90110000 
90111000 
91106900 



OFF |mf 
TWTFGF 

tntfg 

INTFGF 
T 



)NF EXPRESSION, 
»0INTERS(F0RWD). 



PAT 
PAT 
NIC 



S« 

St 
Si 
St 

s 
s 
s 
s 
s 
s 
s 
s 
s 
s 

St 
St 
St 

St 

DFFImF 



MAXSYMS ■ 800#» XmAX NUMBER OF SYMBOLS IN 

MAYPMTRS « 2«5*J XmAX NyMRFR OF UNDECLARED P 

FRRfERRn ■ RnnLPAN<0«EoRPr(ERRl), [61211 tOl((ERR1 
R EXPRLEVFL* FXPTMVARrNTt % 
FR IMDEX# CTYPF, WUMFnRW aRDS* TX, U * 

r prognamflemgth; % 

f ERRtlOO 1 ) % 
"J ALGOL EILF T APE«P ASCpiiN/DISK SERIAL; 

P(PALGnLNAMF)# w /"»PfPU«!FR)#" SERIAL*"* 

n XALGOL STACK x 20^8) FND. M J % 
CH 998 FOR PASCAlIxVT.O CONTAINS 10 CARDS. INSERT PAGE THROWS AT 
CH Tn INSFRT PAGE THRpWS AT DESIRED POINTS IN THF SOURCE TO PRODUCE A 
FLY | AID nUT LTSTINGl 



ALGOL 



FILE CARD* 1 



10052000 
10056000 
10156100 
40018000 
80403000 
90013900 
90090600 
90119000 
90120000 
90120500 
DESIRED 



NT 



PAT 



PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
- , . PAGE 

IS A OTTF* uNTVFRSTTY nF NATAL* DURBAN. AUG • NOV 1977. 

CM 999 FOR PASC AL^XVT !o I CONTAINS 1 CARDS. VERSION NUMBER. 

EDITION « 'MU m #;XAURUSt 1978. ..DAVID A COOPFR..! 



19000000 
20290000 
29000000 
39000000 
49000000 
59000000 
69000000 
79000000 
89000000 
90070999 



10028000 



LABFL OOOOOOOOOLTNF 001790*1CC EX O/RJCOMMONM JFILF S»PATCHES/PASCALJFILE LlNE«*LlNE PRlNTJFNO* 



/R 



I ARFI OOOOOOOOOLTNF 001790*1CC EX 0/R;FILF LINE«LINF PRINT j COMMONM 

FTLF! SvMBOL/PASCAL FRIDAY 03/02/79 03149 



x*xx***xxxr*xxx*xx*xxxx*xx**xx***xxxxx*xxxxxxxxxxxxxxxxxxx*xxxxxxx«xxx 

X X 

x x 

X * * X 

X *. PA. J. C.AU,. COMPILER* X 

X *********************************** x 

X X 

* X 

X WRTTTEN l97« BY X 

X DAG f! LaNGMYHR, X 

X HFPIOt-WATT university* X 

x eotnbuRgh; x 

X J! 

X % 

xrxxxtxxxxtxxxxxxtxxxrxrxxxxxxi'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxx 

x x 

x X 

X PART II DECLARATIONS. * 

x -: x 

x X 

x x 

XtXXXXXXXXtXXXXXXXXXXtttXXXVXXvXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXX 



BFGTn 

OFFIWF EDITI0Ns"2.3"*J 

tmTfrfr numfrrs, X 

SAVFFACTOR, X 

X 
X 
X 

CAROCNTJ _ % »n+?it 
card "s^uRrE" (?,Vo,\sn)} 

LINES t (2,17) J 



»R+2?I 



FTLF 
FILE 
FTLF 



PASCALGOL nISK 



NUMBER OF ERRORS IN PROGRAM^ 
SAVEFACTOR FOR CODE FlLEii 
>0 COMPILF TO LIBRARY; 
*0 COMPILE AND RUN^ 
<0 COMPILF FOR SYNTAX^ 
NUMBER OF CARDS READ. 

X SOURCE CODE INPUT FILE 
X PRINT FILEl 



SFRTAL r?0iA00l <2»10, 150, SAVE 0); X CODE F!_LT 
OFFlNF LlNFSPFRPAGF«5fl#, 

MAxiMT»5fl9 755fl13«fl7#: 



X*** COMPli'ER CONSTANTS *** 

DFFlNF MAXTARLFS «50## 

MAXNAMFS *997*, 

MAXLEVEL »15#; 

MAXCASES «21!*» 

MAXLABS *100#» 

MAXPARAMS a?00#» 

MAXTYPES *10??#. 

MAXCONSTS a?00#» 

maXtemps *5#* 

MAXWITHSYMS»?50## 
MAXSYMS **00#, 

LlSTLENCTH «B00#» 



XmAX number 
XmAX namfs 
XmAX DEPTH 

xJax labels 

XuAX NUMBER 
XmAX NUMBER 

XmAX number 

X«TZE OF CO 
XwUMBER OF 

xmax number 

XmAX NUMBER 
XmAX LENGTH 



of name tables, 
in fach table. 
of procedure declarations. 

in a case-statement. 

of labels. 

of parameters in whole program. 

of different types, 
nstant table. 
Extra vaRs in each procedure. 

of symbols used by with-statms. 

of symbols in one expression, 

OF VAR and param lists. 



FILE S»SYMB0L/PA5CAL IEN0* 

M 

0001000 
0002000 

0003000 

0004000 

0005000 

0006000 

0007000 

0008000 

0009000 

0010000 

0011000 

0012000 

0013000 

0014000 

0015000 

0016000 

0017000 

0018000 

0019000 

0020000 

0021000 

0022000 

0023000 

0024000 

0025000 

0026000 

0027000 

0028000 

0029000 

0030000 

0031000 

0032000 

0033000 

0034000 

0035000 

0036000 

0037000 

0038000 

0039000 

0040000 

0041000 

0042000 

0043000 

0044000 

0045000 

0046000 

0047000 

0048000 

0049000 

0050000 

0051000 

0052000 

0053000 



/R 



WBB 



MAXFXTFTLESa?0*» 
MAXFTLES «?0#|. 
MAXPMTRS *50*J 



*mAX NUMBER 
XuAV NUMBER 

XmAX numbfr 



OF EXTERNAL FTLESi 

OF FTLES DECLARED AT ONE TIME. 

OF UNDECLARED POINTERS. 



%*+* NAME TABLES *** 

ARRAY NAMETABi#nAMfTAB2."nampTAb3cO ,ma XTABLFS#0«MAXNAMES1I 
MAMrirwttTM a r /m • a v# ' " 



DFFINF NAMFLENflTH 
TYPF 
IDCL ASS 

VAP 



■ r 4 i I 6 3 # , 
» r 9t 1 3*'.* 
sf T?!33#7 

>0## 



C0NST»1#» 

FUNC ■>?*# 

PROC *3#» 

TYPES«a#» 
INFO ■E?3ljil#* 
FORMAL «r?4lj]#. 
FORWARODEE *f?5lj3*i 
FXTfRNALfILF*C? a »13*J 

****„ DISPLAY VFfTOR *** 
ARRAY DTSPi AYrOlMAXLFVFLU' 
DFETMF RECTYPE ■t9H0l#» 

fIrstwithSym =ri9iioi#T 

LASTWITHSYM ■r29i?ftl#7 
NUMPNTR5TNWTTH*r35l*l*» 
BRACKETSTNWITH«r36M 1#» 
NAMFTAB *tl(>\y\*i 

*#** TYPE TABLES *** 

ARRAY TYPFTABl*TYPFTAB?,TYPFTAo3tOlMAXTYPES]I 

OFFTNF FORM *n»41#» 

NUMERIC *0*> 

SYMBnLir«i#» 

SUBTYPE ■?#. 

MAINTYPFsr33> 10l«# 
CHAR «3*> 
FL0ATlN6«4f, 
ALFA «5#* 
SET ■**» 

SETTYPF sr33!lOl*» 
P0INtERS«7#» 

P0lNTTYPF«r33«l^*» 
ARRAYS sfl#, 

TNXTYPF -r33!lOl## 

ARRTYPF »[43i 10l## 
RECORD *9*» 

RECTAB ■f33H0i#» 
FILFS «10#, 

FlLFTYPF«f33«10i## 

TEXTFILF*11*. 
SIZF «r?5ti2lf, 
STRUCT«f?3lR3*J 
IMTFRFR NUMTYPFSJ 

X#** PARAMFTER TABLF *** 
ARRAY PARAMTABTOIMAXPARAMSI J 

Offtmf paramnamf »t9iioi#, 



10054000 
10055000 
10056000 
10057000 
10058000 
10059000 
10060000 
10061000 
10062000 
10063000 
10064000 
10065000 
10066000 
10067000 
10068000 
10069000 
10070000 
10071000 
10072000 
10073000 
10074000 
10075000 
10076000 
10077000 
10078000 
10079000 
10080000 
10081000 
10082000 
10083000 
10084000 
10085000 
10086000 
10087000 
10088000 
10089000 
10090000 
10091000 
10092000 
10093000 
J009400D 
10095000 
10096000 
10097000 
10098000 
10099000 
10100000 
10101000 
10102000 
10103000 
10104000 
10105000 
10106000 
10107000 
10108000 
10109000 
10110000 



PARAMKINn «M3I4T#, 
PARAMLEVFL-r23llQ]#. 
PARAMTYPF «C33«m1#, 
PARAMFILF «r34lU#l 
iNTFfiFR NUMPARAMSJ 

X*** C0N5TANT TABLF *** 
ARRAY. rON$TTABrolMAXCPNSTSl? 
TMTFRFR NlJMCONSTSJ 

****_LABEL TAPLF *** 
ARRAY L ABTARtOJMAXLABSlI 
DFElNF LABVAL*Cl4lt51#» 

LABnEF*ri5tn*i 

INTEGFR NUMLABS.'FIRSTL ABJ 



HANDLING 




X*** XRFF FILE 
FTLE XRFFFTLE 
ARRAY PLOCKTAR 
INTEGER MUMX 

X*** OTHER TAB 
IMTFJJFR ARRAY 

iNTFGFR VARI 
ARRAY SYMTABCO 

INTFGFR MUMS 
ARRAY WITHTABC 

iNTFfiFB NWIT 
IMTEOFR ARRAY 
twTegfr ARRAY 

ARRAY PNTRTARl 

IntfrfR NUMP 

array fxtftlet 

Integer nume 

ARRAY FILETABt 

IntfrfR numf 
boolfan array 



AND TABLF *** 
DTSK SFRTAL r?OI*0003 (2>3»150)l 
TOJMAXTARI FS1.* XoFFL INE C I 1 61 1 X 

rff,numrlocks: SointeR XREFPNTJ 

lfs *** 

VARLTSTTOlLTSTLEwCTH]; X TEMPORARY LIST OF VARIABLES, 

MDEX#FTRSTVARJ 

imAXSYMSU X USED BY "EXPRESSION". 

YMSJ 

OfMAYWTTHsYMSi; X USED BY M WTTHSTAT*\ 

HSYMSJ 

SYMBDLfOlftftll X USED BY "INSYMBOL". 

SYMKTNOrOldll T % USED IN FRROR RECOVERY, 

,PNTRTAP?,;PNToTAPirOtMAXPNTRS];x USED FOR FORWARD POTNTER 

NTRSI 

ABfOlMAXEXTFTi'ESi; X EXTERNAL FILES. 

XTFlLFSi 

OlMAXFTlFSlJ X FILES IN USF. 

TLESi 

FRRroillPU X RECORDS FRROR MESSAGES. 



*, COMPILE TTME OPTIONS *** 

LFAN LlSTOPTTON,RFSWOROOPTInN#CHECKOPTION#DUMPOPTION»XRFFOPTIONI 

FftFR CARDLFNftTH) 



X*** 
BOO_ 

inTegfr cardlenrthj 



X*** INTRINSIC TYPES *** 

I.NTEGFR.INTTYPF,REALTYPF#AI F ATvPE, CH ARTYPE* BOOLTYPE*NlLTYPF» TEXTTYPE* 

iNPUTFiLFfOUTPUTFTLF#FMPTvSET) 
BOOL FAN lNPUTDFPL#nuTPUTDEni'j 

X*** TFMPORARY VARTABJFS *** 



10111OOO 

10112000 
10113000 

10114000 
10115000 
10116000 
10117000 
10118000 
10119000 
10120000 
10121000 
10122000 
10123000 
10124000 
10125000 
10126000 
10127000 
10128000 
10129000 
10130000 
10131000 
10132000 
10133000 
10134000 
10135000 
10136000 
10137000 
10138000 
10139000 
10140000 
10141000 
10142000 
1014 3000 
10144000 
10145000 
10146000 
10147000 
10148000 
10149000 
S10150000 
10151000 
10152000 
10153000 
10154000 

10155000 
10156000 

10157000 
10158000 
10159000 
10160000 
10161000 
10162000 
10163000 
10164000 
10165000 
10166000 
10167000 



TNTFGFR T1»T2,TVT4,T5; 10168000 

10169000 
IE*** OTHER VARTABLFS *** 10170000 

AtPHA USER; * THE USER NUMRFR FOUND ON THE USER CARD . 10171000 

10172000 

TNTEOFR CUPLEVF! * * CURRENT PROCFOURE LEVEL. 10173000 

TOPLEVFI, » * TOP LFVEL IN DISPLAY VECTOR. 10174000 

NUMBE6TNS, * NUMBER OF "BFGTN"S IN THE PROGRAM. 10175000 

NUMCASFS* * NUMBER OF C ASF-ST ATEMENTS IN PROGRAM. 10176000 

NyMREPS, * NUMBER OF REPFAT'StATEMfNtS IN PROGRAM. 10177000 

NUMTEMPs* * NUMBER OF TEMPORARY VARfABLES IN USE. 10178000 

CURFUNC', v INDEX OF FUNCTION CURRENTLY COMPILED. 10179000 

CUPSY, « LAST SYMBOL READ BY SCANNER. 10180000 

CUPTYPF, * TYPE OF ENTITY LAST COMPILED. 10181000 

CUPMOOE. * CURRENT EXPRESSION MODfI 10182000 

LASTRECj * LAST RFCORD TABLE OEFINFD. 10183000 

„ „ _ 10184000 

LABfi rNDOrlNPUT; 10185000 

10186000 

FORMAT NOEPRORS f M NO FPRORS DFtFCTEO. w )» 10187000 

FRRnRS (15, " ERRORS DrTFCTED'V ), 10188000 

ALIST ("J SFT LTST StNGLE"), 10189000 

NOAI.IST ("$ RFSFT I T S T « 5 * 10190000 

LASTLINF ("J TFRMINATEI FND OF PASCAL PROGRAM."), 10191000 

TERMMESS ("**** FNn-OFlTNPUTt COMPILATION TFRM INATED# M ) i 10192000 

MONITOR EXPOVRl.REALOVFPFLOw) 10193000 

10194000 

%*** SCANNFR SYMBOLS *** 10195000 

DFFTMF inFNTlrlERolf, INTrON«5Ta2#, RE ALC0N5T»3*> ALFAC0NST-4*, 10196000 

CHAPC0nST«5#» NOTSY«a#, ASTFRISK»7#, Sl_ASH*8#, 10197000 

ANDSV»9*# DTV5Y«7o## MODSY*H#* PLUS»12«, 10198000 

MTNUS»l3#, 0RSY*1/J#> LSSSY>»15#» LfQSY«16#, 10199000 

GFQSys17#, GTR*Y«t>*» NEQSy*19## F0LSy"20*# 10200000 

INSY=?1#, LPAP»2?«, RPAR»?3f» LRRACKET«24#, 10201000 

RRRACkFT*?5#, 00t)RLEn0T*26#» C0MMA«27«, SFMIC0L0N-28*, 10202000 

D0T«29#» ARRnW«4o## C0L0N«31## ASSIGN5Y«32#, 10203000 

RFGINSY»33#» ENDSY-jfl*, IFSY»35«, THENSY*36#, 10204000 

ELSESY«37'#, CASrSYa3fl## 0FSY«39*» RFPEATSY*40#, 10205000 

UNTlLSY = 4lf# WHT| , ESv«42#» D0SY*43#, F0RSY*44#, 10206000 

T0SY«45#» 00WNT0<sY*46#* G0TOSY»47#, NILSY»48#, 10207000 

TYPESY«49«, ARPAYSx»50## REC0RDSY*5l#, FTLESY»52#, 10208000 

SFTSYa53#f C0NST5y,»54## VARSY»55#* LABELSY*56#, 10209000 

FUNCSY*57#, PROrSY««58#* WITHSY«59«, PROGR AMSY«60#, 10210000 

PACKE0SY«A1#J 10211000 

10212000 

DFFIMF INITIAL«0#, MTD0LF«1*, tFRMINAl«2#J 10213000 

DFFIMF NUMRER*0** BTTPATTFRW«1#J 10214000 

Wf%xxxxx%%xx%xxxxxxxtxxxxxxxtx*xxt%xxxx%%xxxxxx%%xxx%%xx%xxx%%xxxxxx%x%X2000iooo 

* X20002000 

* *20003000 

* %20004000 
% PART 21 COMPILER UTILITY ROUTlNESl X20005000 
X .I....... .......•• ••,..... *?0006000 

* X20007000 

* X20008000 

* X20009000 

XXXXXXXXXXXXXXXXXXXXXXXXXXX*XXvXXX%X%XXXXXXXXXX%%XXX%XXX%XXXXXXXXXXX%XXX200lQO(SO 



20011000 

m „ . 20012000 

PROCEDURE TNSYMPOLI FORWARD: 20013000 

PROCFOURE WRlTFALGnL; FORwARM 20014000 

PROCFOURE MEWXRFFf MAMF1,NAMF2#tABLE*DfCL)I 20015000 

VAL.UF NAMF1, NAME2* TABLE, nECi'; 20016000 

RFAL NAME1, NAMr2j 20017000 

TnTFOER TABLE? 20018000 

BOOLFAN OFCU 20019000 

forward; 20020000 

20021000 

DFFlNF MOIfilTS(N)" 20022000 

IF N< 9 THFN 1 FLSF 20023000 

IF N<99 THFN 2 FLSF 3 DIGITS*; 20024000 

20023000 

OFFINF HEADING* . 20026000 

RFGTN COMMENT *** PRINTS A HEAnTNG ON TOP OF A NEW PAGE. I 20027000 

PAGFCNTfPAGECNT+1) 20028000 

RFPLACF P0lNTER(HFAnTFYTt*O*85 BY PAGFCNT FOR NDIfl ITSf PAGECNT) t 20029000 

WRTTEU ,!NESfPA(iE3)l. 20030000 

WRTTE(LlNE!Sr0PL]#l1#HEAnTEvTt*]); 20031000 

lTNFCNTl-21 20032000 

FmD OF HEADTNGf; 20033000 

20034000 

20035000 

OFFlWF PRIMTLINF* **** PRINTS A SOURCE CODE LINE. 20036000 

BFGIN 20037000 

RFPLACF LIMFPNT-P RY CAROCwT FOR 5 DIGITS; 20038000 

TF LlNFCNT>l INFSPFRPAGF THrN HEADING; 20039000 

TF RESWORDOPTION THFN 20040000 

RFGTN ^ 20041000 

WRITFCLINFS[M01»1 1*XI TNFr*!); 20042000 

WRlTF(LINFSrM01*l?#XI TNEr*l ); 20043000 

Fwn; 20044000 

WRTTEfl. INFS,17,LINFr*])I 20045000 

LlNECNTI«LINECNT+i; 20046000 

END OF PRINTLINF#; 20047000 

20048000 

20049000 

DFFimf NEWOARDs **** READS A NEW SOURCE CODE CARD. 20050000 

BEGIN„ - w 20051000 

TF LlSTOPTION THFN PRINTLImFI 20052000 

TF FRRTNX>0 THFN PRTNTFRROrs; 20053000 

RFAD(CARD#10»lCARDr*n rEN*OF I NPUT1 I 20054000 

TARDPNTl-POTNTFRf TCARDr*! )7 20055000 

RFPLACF LINFPNT BY OARnPNT FOR 10 WORDS* M " FOR 6 WORDS; 20056000 

?FPLACF YLTMEPMT RY » " FOp 10 WORDS; 20057000 

rHARCNTlsCARDLENGTHj 20058000 

MARGlNrNTlaflS; 20059000 

CARDCNTl*CARDCNT+i; 20060000 

FMDfT 20061000 

20062000 
. 20063000 

DFFlNF GEN£T#N, START)* **#* GENERATE A TEXT W T M * CONSISTING OF 20064000 

BFGTW «*** "N" LETTERS* STARTING AT "START", 20065000 

TF ALGDLCNT<N THFN WRITrALftOL; 20066000 

TFxT[OU«T; 20067000 



RFPLACf ALGHLPNTIALGOLPNiT «Y TEXTPNTO+START FOR NJ 20068000 

iLGOLCNT«aAl GOLCNT-Nl 20069000 

FMDft 20070000 

20071000 

20072000 

DfFlNF GENTD(L»NUM,NOTro» **** GENERATE AN XALGOL InENTlEIER. 20073000 

BFGfw 20074000 

TF ALGOLCNT<NDTG THFN WrITfALGOU 20075000 

rHfOltit; 20076000 

R F PLA CF ALGHLPNTIALfiOLPMT «Y (jHARPNT FOR 1» NUM FOR NdTG DIGITS) 20077000 

ALGOLCNTIaAl GOLCNT-NDTfi-lJ 20078000 

END*? 20079000 

20080000 

20081000 

INTEGER NARS*NStZEJ 20082000 

20083000 

OFFINF GENTNTfNi* 20084000 

BFGIN . 20085000 

NAR5t«ABS(N)J TF N<0 THEN fiEN c M -"» 1> 7) } 20086000 

NSTZEt«IF NABS* 9 THrN 1 ELSE 20087000 

TF NABS< 999 THrN 3 ELSE 20088000 

IF NABS* 90999 THpN 5 ELSE 20089000 

IF NA8S<99999999 THrN 8 ELSE 121 20090000 

TF ALGnLCNT<NST7F TMEN wRItFALGOLJ 20091000 

TF NSI7EM2 THFN 20092000 

RFPLACF ALGHLPNTIALGOLPwT oY (NABS OIV 1000000) FOR 6 DIGITS* 20093000 

FNTtFR(NABS MOD 1000000) FOR 6 OIGITS El SE 20094000 

RFPLACF ALGOLPNTi ALGOLPmT bY NABS FOR NSTZF DIGITS; 20095000 

A|_GOLCMTI«At G0LCNT«WST7FJ 20096000 

FND fir 6ENTNT#J 20097000 

20098000 

20099000 

PROCFOURE GENRFAL(X)J 20100000 

VALlJF XJ RFAL X> 20101000 

BFGIM 20102000 

Real abSxj 20103000 

INTFGER PnWER»Vl,V2? 20104000 

20105000 

IF X.r46t51=0 ThfN 20106000 

BERTM 20107000 

TF AL6HLCNT<9 THFN WRT TfAl«OLJ 20108000 

fFXTt01l«XJ 20109000 

RFPLACF ALGDLPNTlALGOLPMT oY WWM * TEXTPNT FOR 7» """J 20110000 

ALGOLCMTI-AI GOLCNT-QJ 20111000 

ENn FLSE 20112000 

BEGIN 20113000 

TF ALG0LCNT<22 THFN WRTtEAiGOLJ 20114000 

TF X<0 THEN GENf "( ~»,2 .A 5 ; 20115000 

ABSXt«ABS(X)J 20116000 

TF ABSX>0 THEN 20117000 

RFGIN 20118000 

WHILF ABSX>1*7 DO BFfiTN aBSX t pARSX/1 01 POWER I «P0WFR+1 END! 20119000 

WHILF ABSX<1»6 DO BFfiTN aBSX I sABSXMOJ POWER I *P0WFR-1 END; 20120000 

VI •■FNTIFR(ABSX)} 20121000 

V2l*FNTlFR((ABSX-vnKl00rt000); 20122000 

REPLACE Al GOLPNTJALGfli'PNT BY VI FOR 7 DIGITS* * . % 20123000 

V2 FOR A OTOITS. "P«J 20124000 



ALGni CNTl«ALGOLCMT-HJ w 30125000 

TF PHWER<0 THEN GFN( H -°*7 ,7 ) I 20126000 

POWERI»AB«5CPOWFR5; 20127000 

RFPLACF Al GOLPNTlALOni PNt BY POWER FOR 2 DIGITS; 20128000 

ALGOl CNT!»ALGnLCNT-?* 20129000 

FND ELSE GFN("0 ,, »J»7>J 20130000 

TF V<0 THEN GEN(")".1»7U 20131000 

ENDI 20132000 

END OF GENRFAL; 20133000 

20134000 

20135Q00 

IMTFfiFR TYPEINOFX; 20136000 

20137000 

OFFlNF NEWTYPE" 20138000 

BFGIM 20139000 

TF NUMTYPFS>MAYTYPF55 THFN oFGIN ERROR ( 45 ) ; NUMTYPES I «MAXTYPfS-20 EN0;20140OO0 

TYPElNnEXI«MUMTYPFSl»NUMTYPFS+i; 20141000 

FMD #? 20142000 

20143000 
20144000 

PrOCFOUrE WRlTFALGOL) **** WRITES A COMpLETED XALGOL CARD TO 20145000 

BFGIM **** THE FILE. 20146000 

RFPLACF POTNTERfAl GnLCAROrol) BY CAROCNT FOR fi DIGITS) 20147000 

WRTTE(PASCA| G0L«i6»AL0ni'CAont *3)J 20148000 

jF DUMPOPTtON THFN WRiTF(LTNES*l0,ALG0LCARnt*3>; 20149000 

ALGOLPMTI-PnlNTPRf ALGOl CARnr*3); AL60LCNT I «7U 20150000 

RFPLACF ALGDLPNT BY " " FOo 9 WORDS; 20151000 

FMO HF WRlTFALGnLI 20152000 

20153000 

20154000 

DFFIWF, MARftIN(L.FTTFR»NUM)* 20155000 

BEGIN COMMFNT *** PLACFS INFORMATION IN THF MARGIN. ; 20156000 

TF MAR0INCNT<H8 THFN 20157000 

RFfiTN TFXTC01 l-LFTTFR; 20158000 

RFPLACE LTNFPMT+MaRGtNCNT BY TEXTPNT+5 FOR 2# 20159000 

NUM FOR NOlGjTSfNUM); 20160000 

MAR6TNCNTl»MARGlNrNT*<s; 20161000 

FNn; 20162000 

FMO (IF MARGIN#| 20163000 

20164000 

20165000 

PROCFOURE SKTPCSYMROU; **** SKTP SYMBOLS TO RECOVER FROM ERROR 20166000 

VALUF SYMBOL; INTEGER SYMBOJ ; «*** CONDITION^ 20167000 

BFGIN 20168000 

WHTLE CURSYySYMBOl ANO SYMJTNDC CUR SY] «m I DOLE DO 20169000 

TF CURSY»RFrOROSY THFN 20170000 

RFRTN 00 BFfilN TNSYMBOl ? 20171000 

SKTPf99VT 20172000 

FNO UNTIL dlRSYXSFMIrOLON ANO CURSY/C ASESY; 20173000 

FNO EL5E INSYMBOLI 20174000 

FND OF SKIP; 20175000 

20176000 

20177000 

PPOcFnilRE fRROR(ERRNUM'); 20178000 

VALUF FRRNuM; TNTF6FR FRRNiiM; 20179000 

BffilN.fnMMrNT *** ARRANGE FRROo INDICATOR^ ; 20180000 

NUMFRRSl»NUMERRS+i; 20181000 



pRRfERRNUMlt-TRUn 20182000 

FRRINXI*MAxrERRTNX»0ARDi'ENcTH-2-CHARCNT) J 20183000 

TF ERRTNX<1?5 THFN 20184000 

RFRIN PFPLAfE POTNTFRf FRRLTNFtl J) + FRRINX RY m x«, 20185000 

FRRNIIM FOR NDTGItS(FRRNUM); 20186000 

rRRlNyl«FRR!MX + f Tr (ToRNUMS 9 THEN 2 ELSe 20187000 

TF EBRNUMS99 THEN 3 FLSE 4)1 20188000 

FMO END OF ERROR) 20189000 

20190000 
20191000 

procedure printeRRors; 20192000 

RFGlw COMMENT *i* PRINT FRRnR INDICATORS. J 20193000 

TF NOT LISTOPTTON THFN PRINTLINE) 20194000 

WRTTEU TNES,17,FRRLTNFr*nT 20195000 

i TNFCNTI*LTNECNT+?) 20196000 

RFPLACF POTNTFRfFRRLTNFrn'i BY " n FOR 16 WORDS) 20197000 

FRRTNXt*OJ 20198000 

END OF PRlMTFRRORSj 20199000 

20200000 
20201000 

DFFTMF HASHCN) « (M).r3M3Al MnD MAXNAMES*) 20202000 

20203000 

integer thtslfvrl#thtstab»tmlstndfx; 20204000 

alpha thistd,tnamfj 20205000 

boolfan found; 20206000 

20207000 

DFFlwF SEARCHTAR(TAB)- **** SEARCH NAMF TABLF "TAB" FOR THF 20208000 

BFGlw **** IDENTIFIER JUST READ! 20209000 

THlSTNOEXlsHASHfCllRNAMEl'-i; 20210000 

TMAMf»»NAMETARHTAB#ThIStNDEX3; 20211000 

WHILE (IF TNAMFsrtlRNAMEl THEN N AMETAB2C T AB, THI SINOEX 1 *CURN AMF2 20212000 

FLSF TNAME*0) DO 20213000 

RFGIW 20214000 

THTSTNOrXl.TF TwTSTniDEv«0 THEN MAXNAMFS ELSE THT SINOEX- 1 J 20215000 

TNaME«*MAMFTAR1 rTAR^THTSINDEXl J 20216000 

FNDI 20217000 

FOUNDlaTN A ME^OI 20218000 

TF XREFOPTION THFN 20219000 

TF FOuwO THFN NF WXRFF f CnRN a MF1 * CURNAME2» TAB»F ALSE ) i % 20220000 

END riF SEARCHTAR#) 20221000 

20222000 

DFFlMF SEAPCHb **** SEARCH ALL TABLES CURRENTLY IN USE, 20223000 

BFGIN 20224000 

THTSLEVEH*TOPLFVFL + U 20225000 

DO BEGIN , 20226000 

THISLEVELI»THT SLFVFL-1 } 20227000 

THISTABI.TF TH TSL FV EKCUbL EV EL THEN THTSLEVEL 20228000 

ELSE DlSPLAYrTHlSLEVEL3.NAMETAB; 20229000 

SFARCHTABrTHISTAR)! 20230000 

FNn UNTIL FOUND OR THTSI EVrL*0 1 20231000 

"TH'f s!'0|»NAMr TARS r THT STAR* TuT SI NDtX3; 20232000 

FMO HF SEARCH t; 20233000 

20234000 

20235000 

DFFInF NEWNAMEtNAMFl#NAMF?»TARt ■ 20236000 

BFGlw X*** ENTER A NEW NAME INTO THE NAME TABLE "TAB". 20237000 

THlSTN0EXl*HA5HfNAMF1 Si 20238000 



TNAMFI«NAMETAB1 f TAB»TmIStNDEX 3 i 20239000 

WWlLrUF TNAMF»NAMF1 tHEm NaMETaB2CTAB»THISINDEX3>'NaME2 20240000 

FLSp TNAME*0) DO 20241000 

REGIW ^ 20242000 

THISlNOFXl.TF ThTSTmOFvO THEN MAXNAMFS ELSF THTSlNDEX-i; 20243000 

TNAMEt«wAMFTARirTAP.*THTSINDEX] ; 20244 000 

END; 20245000 

TF TNAME*0 THFN FRR0Rf2)j 20246000 

NAMETABltTApi,THTSTNDFYj!»NAMElJ 20247000 

MAMFTAB2rTAR,THTSTNnFvll»NAME2i 20248000 

TF yREFOPTTON THFM wEWYREF^NAMEl *NAME2 *TAR ,TRUE ) ; 20249000 

FWD OF NEWNAMf #; 20250000 

20251000 

_ 20300000 

PROCFHURE TNITTALI7FJ %*** INITIALIZATION *** 20301000 

BFGIN %*****•**************** 20302000 

INTEGER. T1.T3J 20303000 

ALPHA Aj ^ 20304000 

FTIL SYMKINnt*] WTTH 2RfMInnLE )* TERMINAL* Af MIDDLE )* INITI AL* TERMINAL* 20305000 

TNIT.TAl*MTDDlF,TFRMTM,AL*tNITIAL*MIDDlE*TNITIAL*TFRMINAL*INITTAL* 20306000 

MIDDLE* INT TlAL*?fMTDm E )7tNITI AL » MIDDLE, IN I TI AL » A t MIDDLE ) * 2 0307000 

7{ INTTIAL^*MTDDLFJ 20308000 

.. .. „ 20309000 

FTU SYMBOLf*] WTTH 1 0( n )> ft, ARROW, 0* COLON* GTRSY, GEOSY, PLUS* 9f 5 * 20310000 

HOT,) BRACKET* ANDSY*LPAR*i'sSSY* ARROW* 0*9(0 )*0, ASTERISK* MINUS, 20311000 

RPAR, SEMI COLON, I FQSY,n,S| , ASH* 8(0 )*COMMA*0*NEQSY*FOLSY*RBRACKFT* 20312000 

0,D0tlBLEnnT| 20313000 

.. . 20314000 

I TNFPNT l»PniNTFRfLTNFrm» 20315000 

YLTNEPNTI-PnlNTERfXl TNFrUn, 20316000 

RFPLACF LINFPNT-fl BY " ■> M * " " FOR 16 WORDS; 20317000 

RFPLACF XLTNEPNT-fl RY " " fOR 11 WORDS; 20318000 

RFPLACF POTNTERfFRRi TNFr*!lj> BY ***** % ♦• " FOR 16 WORDS; 20319000 

ALROLPNTI*PnINTFRf AL60I rARnf*! ); ALGOLCNT I »7 \i 20320000 

RFPLACF ALGOLPNT RY " " FOs 9 WORDS; 20321000 

CHARPNT»»P0TNTFRfCHr*3U7; 20322000 

TFXTPNTI»POTNTFRfTEXTr*n+T; TEXTPNTO « wTFXTPNT-1 j 20323000 

PfPLACF TEXTPNT RY - " F0RJ5; 20324000 

STRIN6PNTl»P0lMTFRfSTRTMGC*1); 20 325000 

RFPLACF POlMTERf HFADTEyTt * l ) BY " " FOR 10 WORDS* "PAGF M J 20326000 

RFPLACF P0TNTERfHFADTFXTt*O BY "PASCALC* EDITION* " ) /B-5700"; 20327000 

TFXTC0 3l«TIME(5); 20328000 

RFPLACF P0lNTERfHFADTEXTt*l)+fl5 BY TEXTPNT+3 FOR 2* M / w * 20329000 

. TFXTPNT+1 FOR 2, "/". TEvTPNT*5 FOR 21 20330000 

TI I*TIMFMV3600J 20331000 

RFPLACF P0lNTERfHFADTFXTi:*li+57 BY (Tl OIV 60) FOR ? OTGITS* "l"* 20332000 

.. FNTlERfTl MOD 605 FOR 2 nTGlTS; 20333000 

HFADING; 20334000 

20335000 

**** INITIALIZE INTRINSIC tYPES* CONSTANTS ETC. *** 20336000 

20337000 

!NTTYPF»«T3.t»i; „ ._ . X*** "INTEGER" *** 20338000 

TltsNUMERIC; Tl.ST7Fl*i; T! .STRUCT laOJ 20339000 

TYPETARiti 1i«Tl ; TYPFTAB2M Il*-MAXINT; TYPETAB3tUI*MAXINT; 20340000 

MFWNAMFC"7TNTEGF"."R"*0 ; >; T3^I0CLASSl«TYPES; 20341000 

MAMFTAR3tO*THISTNDFY3l»T3; 20342000 

RFALTYPE«»T?la:2; X*** "REAL" *** 20343000 



T1 .FORMJbFLOATTNGI TYPrTAn1C2]l*Tl) 20344000 

NFWNAMF( M 400REAL M ,0,0)J T^IDCLASSI-TYPFSJ 20345000 

NAMFTAR3CO#THTSTNnFX3 t«T3J 20346000 

ALFATYPFI»T^««»3; %*** "ALTa" *** 20347000 

T1 .FORMIsALFAl TYPFTAR? [ 3 1 ! »T1 ; 20348000 

NFWNAMF("400ALFA%0,0)J Ti *. IDCLASS »*TYPFSJ 20349000 

NAMFTAP3fO#THIS!NOFY3tiT3? 20350000 

Rn0lTYPFI«T3«=4J * X*** "BOOLEAN" *** 20351000 

tT.FORMI-SYMBnLTC) TYPrT Ao 1 C43 I «»T U TYPFT AB3 1 4 3 » ■! J 20352000 

MFWNAMr( M 7RnOLFA H # M N"#n , )J T3llOCLASS»«TYPFS^ 20353000 

NAMFTAA3rO>THIS!NriFY3t«T3J 20 354000 

CHARTYPFI*T^«»>5J X*** "CHAR" *** 20355000 

T1.F0RMI-CHARJ TYPFTARU5il»TU TYPETAB3P5] t#63; 20356000 

NFWNAMF("400CHAR%0,0)|! T il TDCLASS I «TYPFS \ 20357000 

NAMFTAR3fO*THlSINbFyltaT3^ 20358000 

T3t»B0nLTYPF; T3 . TOCi. A «5 S UCONSTJ X*** "FAlSE" *** 20359000 

NFWNAMF( W 50FALSF",0.0)J N aMETAB 3C 0> THI SIN0EX3 » «T 3; 20 360000 

T3.TNFnt»l) X#** "TRUE" *** 20361000 

NFWNAMP( W 400TRUF M . 0,0)1 n!mEtAB3 I 0» THI SINOEX 3 f mj3t 20362000 

Nl)MTYPFSl*5| 20363000 

MTl TYPFt«a-1? X*** TYPE OF "NTL M *** 20364000 

FMPTYSFTfa-?) X*** TYPE OF M *** 20365000 

NFWNAMF( W 6MAXIMT M »0,0)J T*I«»INTTYPEJ X*** "MAYINT" *** 20366000 

TsIlbCLASSiiCONSTl T3l TNFn!«1024 J 20367000 

NAMFTAR3CO»T H ISTNDFx3t«T3? 20 368000 

NUMCONSTSl»i; CONSTTABrilf«MAXlNTl 20369000 

20370000 

T3I»0) T3.T0CLASSl«PR0r; X*** PROCEDURES *** 20371000 

FOR AI»"3000GFT", "3000MEW", "400PACK", M 400PAGF W » "3000PUT". 20372000 

"400PEA0", «ARFAnLN«, "50RFSET"* "6LJNPACK", "50WRITE" DO 20373000 

RFfiTN 20374000 

NEWNAMFf A,0#Oi; N AmET aR3 1 0* THISINOEX 1 I «T 3 i 20375000 

FMOJ 20376000 

NFWNAMFC w 7nTSP0S%"F M ,0^ N AMET AR3 1 0, THI STNDFX 3 » »T3J 20 377000 

MFWNAMFC , 7RFWRTT M #"F'S0lJ NAMET AB3 1 0, THI ST NOEX 3 I *T3J 20 378000 

NFWNAMF("7WRITFL%"N"»0)J NAMETAB 3 [0, THI S TNDFX 3 t «T3) 20379000 

20380000 

T3.!DCl.ASS»*FUNCJ X*** FUNCTIONS *** 20381000 

FHR AI«"3000AB5", "AARCTAN", "3000CHR"* m 3000C0S% "3000EOF", 20382000 

"400F0LN", "300nrXP«, ••20000LN", W 30000DD M » "400PRED% 20383000 

W 400SUCC"* "SOROmNO"* "3000SIN", "3000SQR% "400SQRT", 20384000 

W 50TRUNC* "<SCONcAT"# "AOOTIME'S "400DATE"# W 6I0TIME"# 20385000 

«400tlSFR"» "30000R0" 20386000 

00 BEQTN 20387000 

NEwNAMFfA,0#0)J NAMFTAR3fO#THlSlNDFX3 I-T3; 20388000 

FNDJ 20389000 

MFWNAMFf M 7F| AP SF" »"D% W NAMETAB 3t 0# TH I STNDEX 3 IpTjJ 2 390000 

MFWNAMF("7WFeKOA% ,, Y%oS; N AMET AB3 1 0> THIS TNDFX 3 !«T3 t 20 391000 

20392000 

TFXTTYPEI*T*I»NUMTYPFSi«NUmTYPES+1J X*** "TEXT M *** 20393000 

f'1,1" fFXTF.TlFj Ti "STRUCT I* l; TYPETAB1TTEXTTYPF3 !« T1J X 20394000 

T3. IDCLASS !■ TYPFSI X_ 20395000 

wfWNAMf( m 400TfxT , '{0,0)> N»MFTAB3CO#THISINOEX3 ««T31 20396000 

T3I«TExTTyPF; T3.TOCLA«5SlivARj X*** "INPUT" *** 20397000 

T^.FXTFRNALFlLFI«U 20398000 

NFWNAMFf M 50TNPlJT M #0,0)J I wPUTFI LF I «TH IS I NOEX t 20399000 

NAMFTARStO»THl5TNnFx1liT3l 204 00000 



FMD 



NFWNAMF("60tlTPUT"»0,On 
NAMFTAR3rO,THISTNnFY]»-T3^ 

nr tnttalizf; 



OUTPUTFI LEI -THIS INDEX) 



"OUTPUT" *** 



%*** XREF ROUTTNFS **+ 
X********************** 

HFFTWF XREFCARD«ti6t 175#, 

xRFFBLorK«r?6»im#; 

RFAL, AOj.BO#Ai#B?#LASTAO#LASTAl " 
iNTFftFR NL»LASTRL0CK,A2»AXJ 

PrOCFDUrE NEWXRFFCNAMFI ,NAMf2#tABLE,DFCD) 
VALUF NAMFl#NAMF2#TABLF,RFri'; 
RFAL MAME1,NAMF?J 
INTEfiFR TARLEI 

boolean decl; 

BFGIM 

WLlnNAMFi.NAMFLFNfiTHJ 

TF ML<7 THFm NAMF1 !»0*NAME7r4it4l t6]*NAMFt r35t6xNL-l *6xNL3 
ELSf NAMF?«s08NAMEor35»6xeNL-6)-l!Ax(NL-6)U 

AXI«CARDCNTJ AxIxRFFRLnCKioRLOCKTABtTABLFI ) 

TF DECL THFM AX I » AX-1 OOOOOflOOOOOJ 

WRTTE(XREFFtLF)i#»NAMF1»MAMf?»AX)) 
FWD fiF NEWXREF) 

PROCFniJRE YREFMAX(A); 

ARRAY AfOJJ 

BFGIM 

Ar03»« M AZZ77ZZ w J 

END f!F XREFMAX; 



ArUl« M Z77ZZZ w ) At 23 1-9999999999 J 



BOOLFAN PROCEDURE XRFFCnMPAREC I ,B ) J 

ARRAY A.BffHJ 

BFGIM 

Aot-Afoii ROtaBroii A?i*Irni bii*bei]; 

YRFFCOMPARFl* 

TF AO,C35I3A1/Rolr3^l3«1 TuFN AO . T 35 » 36 3<pO. [ 35 I 36 3 
TF Al*Bl THFN A1<B1 FLSF 

TF AO*BO THFN AO.NAMFLFNGTu<BO.NAMELENGTH FLSF 
AT?! LFO Bt?D 
EMD OF XREFCOMPAREJ 



PRQCFOURE PPINTXRFF<FTNTS#A')J 
VALUF FTNIS) BfldLFAN FTNTS? 

ARRAY A r 11 
BFGIM 

TF FINTS THFN 
RFGTN 

WRlTFfLlNFS*17#XRFFLTNEfl3i) 

rLOSF(LINFS); 

CLOSFfXREFFTLE)) 
FMD 



ELSE 



20401000 

20402000 

20403000 

20404000 

20500000 

20501000 

205 02000 

20503000 

20504000 

20505000 

20506000 

20507000 

20508000 

20509000 

20510000 

20511000 

20512000 

20513000 

20514000 

20515000 

20516000 

20517000 

20518000 

20519000 

20520000 

20521000 

20522000 

20523000 

20524000 

20525000 

20526000 

20527000 

20528000 

20529000 

20530000 
20531000 
20532000 
20533000 
20534000 
20535000 
20536000 
20537000 
20538000 
20539000 
20540000 
20541000 
20542000 
20543000 
20544000 

20545000 
20546000 
20547000 
20548000 
20549000 
20550000 
20551000 
20552000 



flse 20553000 

RFGTN 20554000 

AOtaAfoi; Alt.AMJJ A2f*Ar2U 20555000 

TF AO-LASTAO AND A1*LaSTM AND A2 .XRFFBLOCK»L ASTBLOCK THFN 20556000 

RFGTN 20557000 

IF NUMXRFF-15 THFN 20558000 

BEGIN 20559000 

WPITF(LlNFS,17#XRFFLTNEr*]); L INFCNT »*L INECNT* 1 i 20560000 

TF LInECnTHTnESPFRPaGE THEN HEADING) 20561000 

VRFFPMTf ■POINTFRfYRFrLlNEt*!)) NUMXREEj*©* 20562000 

REPLACE XRFFPNT BY M w FOR 17 WORDS; XREFPNT KsXREFPNT + 24 ; 20563000 

ENHJ 20564000 

REPLACE XRFFPNT BY A2ivREFCARn FOR 5 nTGlTS; 20565000 

XRFFPNTl»XRFFPNT+7l NnMXREF»«NUMXREF*i; 20566000 

FND ELSE 20567000 

TF A?<0 THEN 20568000 

RFGIM 20569000 

A2l*A2+?O00O000O0O0T 20570000 

WRTTE(LTNES*17,XRFFi !Nrr*3)J LlNECNT |»LlNECNT+1 * 20571000 

IF LlNErNT>L!NESPFRPAGp THEN HEADING; 20572000 

xRFFPNTl*PnTNTFR(xRrFLTNEr*])J N|jMxRFFI«o; 20573000 

REPLACF XRFFPNT BY " " FOR 17 WORDS; 20574000 

TEXTtOllaAOir??! 3Aii i'ASTA0«»A0; 20575000 

REPLACE XRFFPNT BY TEXtPNT*1 FOR AO.NAMELENGTHJ 20576000 

TEXTCQ3l*LASTAli«A1 J 20577000 

IF AO.NAMELENGTH>A THEw 20578000 

REPLACE XREFPNT+6 BY TrXTPNT+1 FOR aOIn AMELENGTH-6 ) 20579000 

REPLACF XRFFPNT+17 BY a?.xREEcaRD FOR 5 DIGITS; 20580000 

XRFFPNT l*XRFFPMT+2A T i'ASTBLOCK « «A2 I XRFFBLOCK) 20581000 

FNDI 20582000 

FNOJ 20583000 

EmD nF PRInTXRFFI 20584000 

20585000 
20800000 

20801000 

INTEGER TTi#TT2,Fi,F?»LT#RT: 20802000 

20803000 

DFEtnF CHECKTYPFS(LFFTTYPF»RlGuTTYPE)« 20804000 

BEGIN 20805000 

TF LEFTTYPF>0 AND RTGHTTYPr>0 THEN 20806000 

TF LEFTTYPF^RIGHTTYPE THEN 20807000 

RFGIN 20808000 

LTlnEFTTYPE; RT» »RIGHTTYPE; 20809000 

TTlt-TYPFTABirLTl; TT2 i-TYPETABl CRT] ; 20810000 

Fi't«fTi>ORM< F2liTT2.F0RM; 20811000 

TF LT/REAlTYPF OR F2*mUMfRIC THEN 20812000 

TFCFlj^SET AMH I T*FMPTYSEt )0R (F 2t SET AND RT'EMPTYSFT )THEN 20813000 

TFTFifFOTwTERS AND | TrfNl i'TYPE )ORf E2*P0T NTERS AND RT* Nl LTYPE )THEn 20814000 

RFGIM 20815000 

IF F1«SFT AND FPaSFT TuFN 20816000 

BEGIN 20817000 

LTI-TT1.SETTYPF; RTH^ISETTYPFJ 20818000 

TTlf-TYPETABlTLTl J TT2 I -TYPET AR1 C RT ] ; 20819000 

Flt»TTliFORM; F2I*TT2;F0RM; 20820000 

END; _ „ 20821000 

IF Fl*PniNTFRS AND F2«pOINTERS THEN 20822000 

BEGIN 20823000 



LTIaTTl.POINTTYPF? RT f «TT2. POINTTYPE J 20824000 

TTlt-TYPETARlrLTl? TT2»*TYPETAB 1 FRT3 1 20825000 

FH«TTl.FORMJ r?t»TT2.F0RM; 20826000 

ENOI 20827000 

WHTLF Fl*SUBTYPF DD 20828000 

BEGIN LTI»TT1ImaTNTyPFT TT 1 1 -T YPETAB 1 t LT 3 J Fll-TTl.FORM END) 20829000 

WHILE F?«SUBTYPF DO 20830000 

BEGIN RTI«TT?ImaTNTYPfT TT2 » -TYPET A81 TRT3 ; F2 t*TT2.F0RM FNDJ 20831000 

IF LT>0 AND RT>0 THFN 20832000 

IF LTyRT THFN 20833000 

IF Fl^NllMERTC OR FP^NUmFRIC THEN 20834000 

IF FiyCHAR OR F?*CHaR tHEN ERR0RM75J 20835000 

, FNDJ 20836000 

END* 20837000 

END OF CHECKTYPFSff 20838000 

20839000 

20840000 

INTFRFR FILENAMFI 20841000 

BOOLFAN LPARFOUMOI 20842000 

„ .-■ . ... 20843000 

OFFINF FlL^PARAMtOFFAULTFTI p)»**** CHECKS THE FIRST PARAMETER TO SFE 20844000 

BFGlM **** IF IT IS A FILE. 20845000 

TNSYMBnL; FllFNAMF!*CimTYPE»<*OJ 20846000 

i PARFO!lNDI«rURSY»LPAR) 20847000 

TF LPARFOUNn THFN 20848000 

PFGIN 20849000 

TNSYMBOL; . 20850000 

TF CURSYaTDEMTTFlFR TmEN 20851000 

REGIM 20852000 

SEARCH) 20853000 

IF FOUNn THFN 20854000 

BEGIN 20855000 

TF f HTSlh! TOCi ASS-VAd THEN 20856000 

BEGIN ^ 20857000 

CURTYPFtaTHTSTn.TYoF; 20858000 

IF TYpFTARirCURTYpr]>ORM>FlLES THEN 20859000 

BEGTN 20860000 

FTLFNAMFtBlOOOxTMlSLEVEL+THlS INDEX) 20861000 

TNSYMBOL i 20862000 

FNO FND END END? 20863000 

, ..TF SYMKTNDtCURSYlBTFRMiNU THEN FRR0R(46); 20864000 

FNDJI 20865000 

TF FILFNAMF*0 ThFN F RFMAMp l-DEFAULTF ILFJ 20866000 

TF (FILENAMF*IWPUTFTLF AND NOT INPUTDECL> OR 20867000 

(FlLENAMF«0||TP()TFTLF ANn NOT OuTPUTDECD THEN ERR0Rf96)J 20868000 

END OF FlLFPARAM*; 20869000 

20870000 

20871000 

TNTEfiFR TFORMJ 20872000 

BOOLFAN SIGNED»NEGATTVF| 20873000 

20874000 

DFFINF CONSTANTf CVAL#CTYPF^« %*** <C0NSTANT> *** 20875000 

BFGlw X****************** 20876000 

TF CURSY*MTNUS OR CURSyiPLnS THEN 20877000 

RFfilN SIGNFDI»TRUFJ NEP. ATI uF I »CURSY«MI NUS) 20878000 

TN3YMB0LI 20879000 

FNfl ELSE STftNEDtsNFGATTvEjiFALSE) 20880000 



TF eURSY»INTCONST THEN 20881000 

RFRIN C TY Pe»*INTTYPFJ . 20882000 

fVALl*IF NFftATTVr THrN -CURVAL ELSE CURVAL* 20883000 

FND ELSE 20884000 

TF rUR5Y*CHARC0NST THFN 20885000 

RFRTN TF SIfiNED THFN FRR0P*?9)J 20886000 

CTYPFl-CHARTYPFJ CV AL I *CURVALJ 20887000 

FNn ELSE 20888000 

TF CURSY*RFALCONST THFN 20889000 

RFRTN OTYPF?»RFALTYPE; 20890000 

CVALlalF NFRATTVF THrN -CURVAL ELSE CURVAU 20891000 

FNn ELSE 20892000 

TF CURSY«ALFACONST THFN 20893000 

RFRTN TF SIftNEO THFN ERR5Rc"?9); 20894000 

TF CURLENRTH>7 THFN rRR0R(4i); 20895000 

CTYPFI-ALFATYPEJ CV At I -CURVAL J 20896000 

FNn ELSE 20897000 

TF CURSYalOFNTTFTFR THFN 20898000 

RFRTN 20899000 

SEARCH) . 20900000 

TF FOUND THEN 20901000 

RFGIM „. 20902000 

TF THISTn.inCLASS«CnMST AND NOT BOOLE ANfTHT SID. FORMAL ) THEN 20903000 

SERIN 20904000 

TF TYPETAB1 r THI STn. TvPE 3 .FORMSALFA THEN 20905000 

REGIN % _ 20906000 

CVAL l«THTS!O.TNF0l 20907000 

TF CVAL>1023 THPN rVAL ««CONSTTAB TCVAL-1023] ; 20908000 

CTYPEl-THTSTnlTYPE? 20909000 

IF SIGNED THEN 20910000 

BEOTN . % 20911000 

TFORMIaTYPFTABi rTHI 510 . TYPF 1 . FORM; 20912000 

IF TFnRM^NUMERTC AND TFORM*FLO AT INS THEN ERR0R(29) ELSE 20913000 

IF NFRATIVF THfN CVALl*-CVAL; 20914000 

ENDJ 20915000 

FNO Fl.SE RFRTN FRP0RM8); Cv ALI »CTYPF I "0 FNO? 20916000 

END ELSF BFRTN FRRrmO?)) CVAL I *CTYPE t «0 END; 20917000 

fno flse regtn frporm); cval«*ctypei«o end; 209isooo 

FNn ELSE BFRlN ERRORO?'"); rVAL»»CTYPEl»0 FNDJ 20919000 

TNSYMBOl; 20920000 

END OF CONSTANT*) 20921000 

%x'%t%xxx%XXX%%XX%%XX%XXxX%XX%%*XX%%%%X%%%%%x%XX%%%%X%XXX%%X%%%%%%XX%%%X% 3000 1000 

* X30002000 
% X30O030OO 

* • „ 130004000 

* PART 3! TwF SCANNER. X30005000 
X -- — — - — -— X30006000 

* %30007000 

* X30008000 

* X30009000 

x*xxxxxx%%rxtxxx%rxxxxxxx%xxx%*xx%%%%xx%%%%x%xx%%%xx%xxx%%%x%%x%%%x%%%%% 30010000 

30011000 



% 




TNTFRNaI. 


INTERNAL 


SYMBOL 


30012000 
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SYMBOL 


NiimBEo 


NAME 


KIND 


30013000 
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30014000 
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InENTTFlER 
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IDENTIFIER 


MIDDLE 


30015000 


I 


122 
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INTCONST 


MIDDLE 


30016000 



f 


2.5 


3 


REALCONST 


* 


"ABCD" 


4 


ALFACONST 


* 


Mj«tf 


5 


CHARCONST 


X 


NOT 


6 


NOTSY 


X 


* 


7 


ASTERISK 


X 


/ 


8 


SLASH 


X 


« AMD 


9 


ANOSY 


X 


DTV 


To 


OIVSY 


X 


Mno 


1*1 


MODSY 


X 


+ 


12 


PLUS 


X 


- 


?3 


MINUS 


X 


OP 


14 


ORSY 


X 


«. LSS 


?5 


LSSSY 


X 


<» lfq § 


16 


LFOSY 


x~ 


>■ gfq > 


?7 


6F0SY 


X 


> gtr 


18 


GTRSY 


X 


<> nfQ i 


?9 


NEQSY 


X 


m E<3L 


?0 


EQLSY 


X 


IN 


?i 


INSY 


X 




?2 


LPAR 


X 




53 


RPAR 


X 




94 


LBRACKFT 


X 




95 


RBRACKFT 


X 


• * 


?6 


DOUBLFDOT 


X 




P7 


COMMA 


X 




?8 


SEMICOLON 


X 




?9 


DOT 


X 


I 


30 


ARROW 


% 




31 


COLON 


X 


1 a 


32 


ASSIGNSY 


% 


RFGIN 


33 


BEGINSY 


X 


END 


34 


ENOSY 


X 


IF 


35 


IFSY 


X 


TMFN 


36 


THENSY 


X 


else 


*7 


elsesy 


X 


CASE 


38 


CASESY 


X 


OP 


39 


OFSY 


X 


RFPEAT 


aO 


REPEATSY 


X 


UNTIL 


«1 


UNTILSY 


X 


WHILE 


a2 


WHILESY 


X 


on 


43 


OOSY 


X 


FOR 


44 


FORSY 


X 


Tn 


a5 


TOSY 


X 


OOWNTO 


ii6 


DOWNTOSY 


X 


GOTO 


47 


GOTOSY 


X 


NTL 


48 


NILSY 


X 


TYPE 


1x9 


TYPESY 


X 


ARRAY 


«*0 


ARRAYSY 


X 


RFCORO 


SI 


RECORDSY 


X 


e.tle 


S2 


FILESY 


X 


SFT 


O 


SETSY 


X 


CONST 


S4 


CONSTSY 


X 


VAR 


«>5 


VARSY 


X 


label 


^6 


LABELSY 


X 


FUNCTION 


S7 


FUNCSY 


X 


PPOCEOIlRE 


S8 


PROCSY 


X 


WITH 


»»9 


WITHSY 



MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDOLE 

MIDDLE 

MIDDLE 

MIDOLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDOLE 

MIDDLE 

MIDDLE 

MIDOLE 

MIDOLE 

MIDDLE 

MIDDLE 

MIDOLE 

TERMINAL 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

INITIAL 

TFRMINAL 

INITIAL 

MIDOLE 

TERMINAL 

INITIAL 

MIDDLE 

INITIAL 

TFRMINAL 

INITIAL 

MIDDLE 

INITIAL 

MIDDLE 

MIDDLE 

INITIAL 

MIDDLE 

INITIAL 

MIDOLE 

MIDDLE 

MIDDLE 

MIDDLE 

INITIAL 

INITIAL 

INITIAL 

INITIAL 

INITIAL 

INITIAL 



30017000 

30018000 
30019000 
30020000 
30021000 
30022000 
30023000 
30024000 
30025000 
30026000 
30027000 
30028000 
30029000 
30030000 
30031000 
30032000 
30033000 
30034000 
30035000 
30036000 
30037000 
30038000 
30039000 
30040000 
30041000 
30042000 
30043000 
30044000 
30045000 
30046000 
30047000 
30048000 
30049000 
30050000 
30051000 
30052000 
30053000 
30054000 
30055000 
30056000 
30057000 
30058000 
30059000 
30060000 
30061000 
30062000 
30063000 
30064000 
30065000 
30066000 
30067000 
30068000 
30069000 
30070000 
30071000 
30072000 
30073000 



* 
* 



PROGRAM 
PACKED 



M 



PROGRAMSY 
PACKEDSY 



INITIAL 
MIDDLE 



DFF 



IMF BLAMK«4flf# FQUAL*»61#," QnOTF S*63 t> DOLL AR«42 *, 

LETTERCcV«(17«C AND r «j2« )OR( 33 S C AND C<4 1 )0R(50«(* AN 
ALFAMljMfr )*(LFTTFRf CI Or? C<9)#J 

RFAl fURVAi j 

ALPHA CURNAMEl*{*URNAMF?,C#ry» 
INTEGER CURLENGTH,LASTCHARPnS) 
BOOLEAN FINIS J 

DfFinf NEXTCHAR* 

RFGTm comment *** reao mExt characterI *** ; 

TF CHARCNT*0 THrN Ct«BI aNK FLSE 
RFOTN 

REPLACE CHARPNT BY OARnPNT tCARDPNT FOR U 

CtuCHtOlJ CHARCNTIwCHApCNT-U 
END FNO *l 



PROCFnilRE TNSYMpOLJ 

BFGfN COMMFNT *** READS THF NEvT SYMBOL. +**} 

TNTEGER SCA| E,EXP) 

BOOLEAN NEGFXPI 

LAREL START. OVFRFLOW; 



D C$5T)f, 



STARTI 
TF 
RFG 



FNO 

TF 

RFG 



C*BLANK 
IN SCAN 
TF CH 
MEXTC 
I 

lettercc 

IN 
CURLENG 
NEVTCHA 

WHILE A 

BEGIN C 
C 

END) 

IF CURL 

BEGIN 

WHI 
REG 

END 
WHI 

Eno; 
curnamf 

CASE CU 

BEGIN | 

CURSY 

CURSY 



THEN 

CARDPNTICARDPNT ,FOR CH ARCNT I CHARCNT WHILF ■ " 

ARCNT-0 THEM RErsTM NEWCARO; GO TO START FNDl 

MAR) 

1 THEN 

TH»«U PURNaMETi«C) CURNAME2I«0) 

rj 

IFANUMfC) AND ChRLENGTM<6 DO 
llRNAMEl I«C*HiRNaME1[35129! 3011 
llRLFNGTH»»ClJRLEwGTH+ll NEXTCHAR* 



FNGTH»6 THEN 

|E ALFANllMfri) AND CURLENGTH<1? DO 
TN CURNAME2«ic*rURNAME?p5»29130]J 

CURlFNGTHl-CnRLENGTH+ll NEXTCHARJ 

I 

LE ALEANllMfp^ Dn NEXTCHAR; 

1 .NAMELENGTHi«CmRLENGTH; 
RLENGTH OF 

l"InENTlFlFR» 

l« IF CURNAMF?« w ?O000IF w THEN IfSY ELSE 
IF CUPNAMFl"»"5oOOODO M THEN DOSY ELSE 



30074000 
30075000 
30076000 
30077000 
30078000 
30079000 
30080000 
30081000 

30082000 
30083000 
30084000 
30083000 
30086000 
30087000 
30088000 
30089000 
30090000 
30091000 
30092000 
30093000 
30094000 
30095000 
30096000 
30097000 
30098000 
30099000 
30100000 
30101000 
30102000 
30103000 
30104000 
30105000 
30106000 

30107000 
30108000 
30109000 
30110000 
30111000 
30112000 
30113000 
30114000 
30115000 
30116000 
30117000 
30118000 
30119000 
30120000 
30121000 
30122000 
30123000 
30124000 
30125000 
30126000 
30127000 
30128000 
30129000 
30130000 



IF 
IF 

IF 
IF 

cursy»*if 

IF 

IF 
IF 
IF 
IF 

IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 

CURSVI-IF 
IF 
IF 
IF 
IF 
IF 
IF 

rURSYl-lF 
IF 
IF 
IF 
IF 

I? 

CURSY t*IF 
IF 
IF 
IF 

CURSYt*TF 



CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CuRN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURM 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CuRN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 
CURN 



AMF1* 

AMF?* 

amf?» 

AMF?" 
AMF1 
AMFl 
AMF?* 

amf? 

AMF? 

amf?* 
amfi* 

AMFl." 
AMF?* 
AMF?« 

amf?* 

AMF1* 

AMF?" 

amf?* 

AMFl* 

AMFl* 

AMF?* 
AMF?* 

AMFl« 
AMF1- 
AMFl* 

AMFi« 

amf?* 

AMFl* 
AMFl* 

amfT* 

AMFl"* 
AMF?* 

amf?* 

AMF?* 

AMf£« 

AMpi* 
AMF1* 



SoOOOTO" 
SoOOOOR" 
"^OOOOOF" 

Sooooin* 

"ioOOEND" 
w *OOOFOR" 
"»OOODIV« 
•SOOOMOD" 
"*OOONIL" 
"iOOOAND" 
"ioOONOT" 
"•ioOOyAR" 
"*OOOSET" 
"*OOOLSS'» 
"iOOOLEQ" 
M *OOOGEQ H 
9000GTR" 
"*O0ONE9" 
"*OOOEQL M 
"flOOTHcN" 
"aOOELSE" 
"7.00WITH* 
"ftQOCASE" 
SOOGOTO" 
"aOOTYPE" 
"aOOFILE" 
w *OBEGIN" 
"iowHILE" 

"ioUNTIL" 
"*OARRAY" 
M «OCONST" 
"rOLABEL" 
"aREPEAT" 
"aOOWNTO" 

m *record m 

•♦aPACKEO" 
"tPROGRA" 



CURSYl*IF CUPNAMF1*"BFUNCTI W 
CUR$Yi*IF CURNAMF?*"oPROCEO" 



EN 
IF 
BF 



EN 

FNO OF 

TF C$9 

RFfiTN 

CU 

NE 



CURSYl* 

CURSYJ* 

CURSYl* 

OF fA 

PESWOR 

ftlN T?« 

TF 

RFP 

0* 
LETTFR 

THEN 



IHFNTIF 
IHFNTTF 
iriFNT TF 
SFJ 

OnPTIHN 
■ CARIUF 
CHARCNT 
LACF XI. 



IERJ 
TER* 
TERI 



X 10 
% 11 
X 12 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
AND C 

ELSE 
AND C 

ELSE 
AND C 

ELSE 
CHARA 
CHARA 
CHARA 



TOSY ELSE 

ORSY ELSE 

OFSY ELSE 

TNSY ELSE IDENTIFIER* 

ENOSY ELSE 

FORSY ELSE 

DTVSY ELSE 

MOOSY FLSE 

NILSY ELSE 

ANOSY ELSE 

NOTSY FLSE 

VARSY ELSE 

SETSY ELSE 

lsssy else 

lfosy else 

gfqsy else 

otrsy else 

nfosy else 

eolsy flse identifier* 

thensy else 

elsesy elsf 

wtthsy elsf 

CASESY ELSE 

6OT0SY ELSF 

TYPESY ELSF 

FTLESY FLSE IOFNTIFIER* 

RFGINSY ELSF 

WHTLESY ELSF 

UNTILSY ELSF 

ARRAYSY ELSE 

CONSTSY ELSF 

LABELSY ELSF IDENTIFIER* 

RFPEATSY ELSE 



downtosy else 
rfcordsy else 
packedsy else tdentififRJ 
URNAME2* w M w then progRamsy 
identifier* 

URNAME2*"0N" then funcsy 

IDENTIFIER* 

URNAME2."URE" THEN PROCSY 

IDENTIFIER* 
CTERS. 

CTERS. 

CTFRS* 



AND CnRSYJ'lDENTIFTER THEN 
NGTH-CuARCNT-CURLENGTH* 

■0 THEm CARDPNTl*CAROPNT+l ELSE Tli*Tl-l* 
TNFPNTlTl BY CARDPNT-f CURLENGTH + 1 ) 

FOR CURLFNGTH* 



FLSF 



RVALI-CI 
XTCHAR* 



CURSYl.TNTrONST* 



30131000 
30132000 
30133000 
30134000 
30135000 
30136000 
30137000 
30138000 
30139000 
30140000 
30141000 
30142000 
30143000 
30144000 
30145000 
30146000 
30147Q00 
30148000 
30149000 
30150000 
30151000 
30152000 
30153000 
30154000 
30155000 
30156000 
30157000 
30158000 
30159000 
30160000 
30161000 
30162000 
30163000 
30164000 
30165000 
30166000 
30167000 
30168000 
30169000 
30170000 
30171000 

30172000 
30173000 
30174000 
30175000 
30176000 
30177000 
30178000 
30179000 
30180000 
30181000 
30182000 
30183000 
30184000 
30185000 
30186000 
30187000 



ffi WHILE C<9 no RFfiTN c URvAL t »lOxCURVAL+C I NEXTCHAR ENDI 30188000 

. IF C» w > THFN 30189000 

T BEGIN 30190000 

NCVTCHARJ 30191000 

IF Ci9 THFM 30192000 

BEGIN CURSYl-RFALCnNSTI 30193000 

00 RFOTN fURv/AL«*lOxCURVAL + CJ 30194000 

*CAi>J*SCALE-U NFVTCHARJ 30195000 

FNO UNTTI ,C>oj 30196000 

FMO ELSF TF Ca M . M tHFN C»»64 * SPFCIAL MARK FOR "l," 30197000 

rLSF ERRORU)! 30198000 

ENDI 30199000 

IF C«"F W THFN 30200000 

BEGIN 30201000 

CuRsY«pRFALrONST^ NEXTCHARl 30202000 

ip f »" + " PR c*"-" THEN BEGIN NfGFXP ' "C""""^ NfXTcHAR END* 30203000 

IF C*9 THEN 30204000 

BEGIN FXPl«c; mEXtCHAR; 30205000 

WHIJF C<9 DO REGIN EXPl ■lOxPXP+CI NEXTCHAR END! 30206000 

TF NFGFXP THrN FXP»--EXPj 30207000 

ENO ELSE FRRORM)! 30208000 

SCAI El*SCALF+EXPi 30209000 

ENOJ 30210000 

IF CU«SY"Rr*LC0N8T tHEm 30211000 

BEGIN 30212000 

REALOvERFLOWI-OVFRFLnwJ 30213000 

TURVAL »«CURVALx10*SCaLEJ 30214000 

REALOvERFLOWIaOl 30215000 

ENO ELSF 30216000 

IF CURVAL>MAXINT THrN 30217000 

BEGIN , 30218000 

OvERFLnWI CRRflRtl4)J ClJRvALmOl RpALOVERFLOW I *0J 30219000 

ENOJ 30220000 

FNH OF DIGIT ELSF 30221000 

TF C»OtinTES THFN 30222000 

RFGIN 30223000 

CUrSYI«aLFACONSTJ rURi'FNGTHI*o; NFXTCHAr; 30224000 

FIMTS|»FALSFI 30225000 

DO BEGIN 30226000 

IF 0«Q|jnTFS THFM RrGlN NExTCHARJ F T NI S I »C *Ot)OTFS ENO ELSE 30227000 

IF CHARCNT-0 THFN nFGlN ERR0R(6)J FlNlS»*TRlJE FNO; 30228000 

IF NOT FTNTS THFN 30229000 

BEGTN 30230000 

REPLACF STRTNGpnT+CURLFNGTH BY CHARPNT FOR 1* 3023J00O 

CURLFNGTHt-rURi'FNGTH+i; 3 0232000 

NEXTCHAR; 30233000 

END END UNTIL FTNTSJ 30234000 

IF CURLFN6Th«0 THFM ERoOR<4) ELSE 30235000 

IF CURLFNGTH.1 THFN 30236000 

BEGIN CllR5Yt«CHARCnM5Tt 30237000 

RFPLACF CHARPmT nY STRlNGPNT FOR II CURV AL » «CHf01 I 30238000 

ENn ELSF 30239000 

IF CURLFNGTH<7 THFM 30240000 

BEGIN TFXTfOII*" n i 30241000 

RFPLACF k TFXTPMT oY STRIMGPNT FOR CURLFNGTHI 30242000 

CllRVAL»aiTFXTrft3J 30243000 

END; 30244000 



rwn OF STRINGS FlSF 302*5000 

RFfiTN 30266000 

CUPSYl-SYMROLrCl) MEXtCHAR; 30247000 

IF CURSY-COLON AND r«EM)AL THFN 30248000 

BEGIN ClJRSYlsASSTGNsYJ NEXTCHAR END ELSE 30249000 

IF CURSY-DOT AND C» M ." THEN 30230000 

BEGIN CURSYI-DOtlRLEnOTJ NEX.TCHAR ENO ELSE 30251000 

IF CDRSY-LSSSY AND P-EoUAL THEN 30252000 

BEGIN CIIRSY!«LF0SYJ NEXTCHAR ENO ELSE 30253000 

IF CURSY-LSSSY AND r«%" THEN 30254000 

BEGIN CURSYl*NFOSYJ NEXTCHAR END ELSE 30255000 

IF CURSY»GTRSY AND C«E*UAL THEN 30256000 

BEGIN CllRSYl*GFOSYj NEXTCHAR END ELSE 30257000 

IF CURSY»LPAR AND r.m»*» THEN 30258000 

BEGIN % *** COMMENT *** 30259000 

NEYTCHARJ 30260000 

IF P»DnLLAR THFm % DOLLAR INDICATES COMPILER OPTIONS. 30261000 

DO BEGIN 30262000 

NFXTCHARI CXliCJ NEXTCHARI 30263000 

IF CX*"L M THFN Ir C«l THEN HEADING 30264000 

ELSE LISTOPTIONIbO"** ELSE 30265000 

TF CX«"R" THFN RrSWORDOPT ION I *C«» ,, + M ELSE 30266000 

IE CX«"C M T HFN CwFCK0PTlONl«C» w + M ELSE 30267000 

TF CX^O" THFN OuMPOPTlON twC*"+ w ELSE 30268000 

TF CX«"X" THFN XRFF0PTI0NI«C« W +" ELSE 30269000 

IF CX» M A" THFN 30270000 

IF C» M + W THFN wRITE(PASCALG0L#ALlST5 30271000 

Fl SE wRITE(PASCAL60L#N0ALIST) ELSE 30272000 

IF CX^T" THFN 30273000 

BfGIN LASTCHARPO*! «■ CHARCNT - CARDLENGTHJ 30274000 

CAROLENftTH'mlOxCJ 30275000 

NFXTCHAPJ r AROLENGTH » «CARDLENGTH+C J 30276000 

TF CARni'ENftTH<9 OR C ARDt_ENr,TH>80 THFN 30277000 

RFGTN FRROPM45J C AROLENGTH I -72 ENHJ 30278000 

CHARCNTf»MAX(0#LASTCHARP0S+CAR0LENfiTH-1 )J 30279000 

ENDI 30280000 

NFXTCHAR) 30281000 

END UNTIL C¥"*»l 30282000 

FTNtSi.fALSf; 30283000 

DO BEGIN 30284000 

If C* w *" THEN 30285000 

SCAN CARDPNTlTARnPNT FOR CHARCNT tCHARCNT UNTIL *»*»t 30286000 

IF CHARCNT'O THEm NEWCARO ELSE 30287000 

BFGIN NFXTCHAPJ 30288000 

WHILF Cs"*« DO NEXTCHAR; 30289000 

FINTSl»r» w '-»«l 30290000 

ENn END UNTtL FtNt«J 30291000 

nextchari 30292000 

go to start* 30293000 

End of cOmmfntj 302?400o 

FND) 30295000 

END OF INSYMBOLI 30296000 
XfXXXtXXXXtXXXXXXXXXXXXXXXXXXXvXXXXXXXtXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXXXXHOOOlOOO 

% X40002666 

% X40003000 

X X40004000 

X PART 4t EvPRESSlON PARSFRl X40005000 



% .;.---.-•---...... %40006ooo 

I X40007000 

* X4OOO8000 

* 140009000 

%t%xtttt%%t%%txt%x%%%%xrx%tt%%wx%%%%x%%%%%%%%%r%%%%t%%xt%%%%%%%%%%r%%%%%n 00loooo 

40011000 

40012000 

PROCEDURE TXPRFSSiriNJ fORWAROi 40013000 

PBOermiRE concatj forward! 400i4ooo 

. „ t 40015000 

ALPHA TFMPSYM) 40016000 

R EAL SXJ 40017000 

TNTpepR FVPRLFVrL#TX) 40018000 

40019000 

OFFlMF PUTTEXTfT). 40020000 

RfGIn 40021000 

TF NUMSVMS»MAXSYMS THFM 40022000 

RFfilN FRR0Rf7l)J 40023000 

NUMSYMS|«iJ 40024000 

FMn ELSE NUM5VMSI«NiJMSYMS*Tl 40025000 

9YMTABfNuMSYMSH«T) 40026000 

FNO nr PUTTEXT #1 40027000 

40028000 

OFFINF PUTSYMfS)« 40029000 

BF6I W , _ w . 40030000 

TFMPSYMlB(S)ftir41 I5I61J 40031000 

PUtfEXTtTEMPSYMji 40032000 

FMO OF PUTSYM mi 40033000 

...~ .... 400 34000 

OFFfWF PUTCONSTfVAL)« 40035000 

Bfr6lM 40036000 

PUTTEXTt M 20O00OO w 5) 40037000 

PUTTEXTtVALW 40038000 

fmO of putconst *; 40039000 

40040000 

OpElNF PUTOUMMY- 40041000 

BEGIN 40042000 

PUTTEXT("30O00.O0"5J 40043000 

FMO OF PUTOUMMY #> 40044000 

40045000 

DFFIWF PUTTD(L*MUM,NUMDTr,)« 40046000 

BF6TM _ 40047000 

TFXTC03I« M .« t L M5I06H 40048000 

RFPLACF TEYTPNT+? BY NUM FnR NUMDlG DIGITS! 40049000 

PUTTEXT(TEXTrOI); 40050060 

END HF PUTTD#; 40051000 

40052000 

DFFlwF WRTTEFXPR- 40053000 

BEGIN . 40054000 

FOR TUpI STFP 1 UNTIL NUM«YMS DO 40055000 

PEGTN ,. 40056000 

SX!*SYMTABrTnj Tyi«Sv.C41l6]; 40057000 

IF TX-0 THFN SITNf 3x'.>*5 1 ELSE 40058000 

IF TX»3 THFN FLSE 40059000 

IF TX«1 THFN fiFMfSX.1,7) FLSE 40060000 

BEGIN . ... 40061000 

Tll»Tl*U SXl»SYM T ABrTl]; 40062000 



if 5X,r44i*i«o them gfnint(SX) flsf genreal(Sxw 40063000 

END ENDJ . 40064000 

numsym5i»0j 40065000 

end of wRIteexpr#j 40066000 

40067000 

40068000 

OFFINP CHFCKEXPR(LLTM,IILIM^ 40069000 

RFSIm 40070000 

PllTTEXTCCHFCKt")) 40071000 

FXPRESSIONJ 40072000 

PUTSYM(»S M .)> PUTCnMST(i'LlM)? 40073000 

PUTSYMf",")/ PUTCONSTrilLlM)) 40074000 

PIlTSYMf "*")» PUTCriNSTff ARnCNTJJ 40075000 

PlITSYMf •»)«)") 40076000 

FMD OF CHfCKFXPRJM 40077000 

40078000 

40079000 

BOOLFAM SIMPLEVARlABLF#TNSTnEBoACKE.TSj 40080000 

TWTFfiFR NUMPOINTERSJ 40081000 

40082000 

PPOCFOURE VARIARLEI 40083000 

BFGlN 40084000 

TNTFGFR STARTSYM#| LTM,lli IMl 40085000 

RFAL TJ 40086000 

ROOLEAN INBRACKFTfTWRFOnRD" 40087000 

LARFL AODAOOR) 40088000 

40089000 

STARTSYMI.NliiMSYMS + 1 t 40090000 

TF TH!SLEVFL>CURLFVFL TMFN * VARIABLE IN FTFLO LIST OF 40091000 

RFfilN % RFCORD USED IN W ITH-STATEMENT , 40092000 

Tl«0T§PLAYtTHlSLFvEL1? 40093000 

T4«»T.F!RSTWITHSYMJ T5» ? T.L ASTWITHSYMJ 40094000 

rOR'TSl«T« STFP 1 UNTTL t5 DO PUTTEXTt WTTHTABCT31 J J 40095000 

TNRErOROt-TRUFi b 40096000 

TNBRACKFTtaBOlUFANf T*RRa!;KETSINwITH)J 40097000 

NUMPniNTFRSlsNUMPniNTpRSlT.NUMPNTRSlNWTTHJ 40098000 

SIMP|.EVARTABLFI*FALSFI 40099000 

ruRTYPFI«T.RFCTYPr) Tt'STYPFTABlCCURTYPFi; 40100000 

GO TO AODAOOR; 40101000 

PMni 40102000 

TF THlSLFVFtM ANO THI si EVrL<CURLEVEL THFN ERR0R(5); 40103000 

fURTYPFI-THTSlolTYPFJ SlMoLEVARI ABLE l-TRUFJ 40104000 

PUTID( M V#1000xTHTSLFVFi +TuTSINDEX*5)J 40105000 

INSYMBOLI . 40106000 

TF CURSY*LBRACKTT OR CUPSY.DOT OR CURSY-ARROW THEN 40107000 

RFGTN 40108000 

SlMPj FVARtABLEI«FALSF> 40109000 

00 BFGTN . 40110000 

IF CURSY*LRRACKrT THEN 40111000 

BEGIN 40112000 

TF NHTdNBRACKET nR TNRECORO) THFN 40113000 

REGIN PUTSYMfT")! I mRR ACKET l«*TRUE FNDJ 40114000 

00 BFGIN 40115000 

TlwTYPFTABirCURTYPrlJ 40116000 

LLTMt«TYPFTAB?rffURTYPE3i UL IM l«TYPETAB3 1 CURTYPE3 i 40117000 

IF T.FORM*ARRAYS TuFN ERR0R(12)I 40118000 

IF TNRrcORO THFW PmTTFXTC" ♦("); 40119000 



INSYMBflLJ w 40120000 
IF cHfCKOPTTON THEu CHECKEXPRf LLTM,ULIM ) ELSE FXPRESSIHN! 40121000 

CHFCKTYPFSfT.lNYTYpF.CURTYPE)! 40122000 

CURTYPFI-tIaRRTYPFj 40123000 

IF TNRFCORD THFw 40124000 

BEGIN 40125000 
TF LLIM<0 THFM RrGIN PUTSYMf "♦•♦ ) J PlJTCONSTC-LLlM) ENH ELSE40126000 

TF LLIM>0 THFN BrfilN PUTSYMf "-") , PUTCONSTC LLIM) END! 40127000 

PUTSYMf")")! „ 40128000 

TT TYPFTARirrilRTvPE3.SlZF>l THFN 40129000 
RF6IN PUTSYMf "x"W PUTCONSTf TYPFT ABl [ CURTYPE 1 . SIZE ) FNDJ 40130000 
ENO ELSE TF TYrfT AM t CURTYrEI . STRUCT>0 THEN PUTSYMf",")! 40131000 

FND UNTIL CURSY/rriMMAj 40132000 

TF eiJRSY*RRRACKET THfN 40133000 

RFRIN ERR0Rf59)! SKrPf RBRACKET) I 40134000 

IF CURSYsRBRACkFT THEN iNSYMBOL! 40135000 

FND Fl SE TNSYMBOl . I 40136000 

END OF BRACKETS ELSF 40137000 

IF CURSY-DOT THFN 40138000 

BEGIN ... 40139000 

TF NflTf INBRACKFT flR TNRFCORD) THEN 40140000 

REOIN PUTSYMf ♦•[")} IwRRACKETt "TRUE END* 40141000 

Tt.TYPETABirCURTYPElT 40142000 

TF T.FORMjfRFCnRD THEm ERR0Rfl2)! 40143000 

TNSYMBOL) 40144000 

TF CURSYaTOFNTlFTrR tHEN 40145000 

RFSIN , .. , 40146000 

SEApCHTABf T.RFOtABW 40147000 

IF FOUNO THFN 40148000 

BFGTN - , , 40149000 

THlSlnt*NAMFTAB3rT.RECTAB»THlSlNr)EXl| 40150000 

AOOAnORl PUTSYMf " + ♦♦)! 40151000 

PUTCONSTfTHTSTOiTNFO)! CURTYPF1«THISID.TYPE j 40152000 

END ELSF RFfiTN FRRnRfl)! CURTYPEt-0 END* 40153000 

FMO ELSE BFRTN FPpORr9)! CURTYPEI»0 FND; 40154000 

TNRECORO laTRUFl 40155000 

TNSYMROL! 40156000 

ENO OF nOT FLSF 40157000 

BEftTN * CURSY»ARROW 40158000 

Tt*TYpETAB1 rCURTYPE3s 40159000 

TF T>ORM«FTLFS TuFN 40160000 

RFGIN v 40161000 

CURtYPFI«T.FILFtYPf) 40162000 

IF TYPFTABUCURTYPr)ISTRUcT«0 THEN PUTTEXTf" C03")! 40163000 

FND fi SE m 40164000 

TF T.FORMwTFYTFTl F TmFN 40165000 

RESIN _ 40166000 

SYMTABrNUMSYMSliaSvMTABCNtJMSYMS] « "I" [35!5»61J 40167000 

PllTSYMf».«)! PUtTEXT("LASTCH"); 40168000 

CURTYPFlwCHARTYPE) 40169000 

FND %\ SE . 40170000 

IF T.FORMbPOTNTFRS TuFN 40171000 

RFGIM . 4 0172000 

IF TNBRACKFT THFN PUTSYMf"]")! 40173000 

INBRACKFTI-FALSF) 40174000 

IF NUMSYMS+?<MAySYmS THEN 40175000 

BEGTN 40176000 



FOR T1I*NIIMSYMS «TEP -1 UNTIL STARTSYM 00 40177000 

SYMTABtTl+2]llSYyTABCTni 40178000 

SYMTARTSTARTSYM],." MEMr"J 40179000 

SYMTABrSTARTSYM+7)l»" CTI» M J 40180000 

NljMSYMSfaNUMSYMSl?; NUMPO INTERS « «NUMPO INTERS* 1 I 40181000 

INREC0R0I«TRIIFJ 40182000 

END ELSE E?RORf63)I 40183000 

CURTYPFI-T.POINTTYpFJ 40184000 

FND F| SE BFfllM ERPORM?)J CURTYPEl«*0 ENDJ 40185000 

TNSYMrOLJ 40186000 

. END Of. ARROW* .. 40187000 

FNO UNTIL CURSY*LBRAC,KET, AND CURSY/DOT AND CURSY^ARROWJ 40188000 

TF TYPETAPHCURTYPF3.STRiiCT»0 THFN 40189000 

RF6IM t __ 40190000 

IF INBRACKFT THFN PllTSvMt «)" ) I 40191000 

WHTLF N||MPniNTFRS>0 00 40192000 

BEGIN PuTTFyTf-1 )n?V M ^ PUTTFXTC 10?2#")J 40193000 

PllTTEXT( w T MnO"'->J PUTTEXTf" 10223 W )J 40194000 

NllMPnTNTF«St»MUM«»OINTERS*i; 40195000 

ENnJ 40196000 

FW °' 40197000 

™ n * 40198000 

TNSTDERRACKFTSl? TNBRACKFTJ 40199000 

fURMOOFI»NUMBERI 40200000 

END flF VARIABLE* 40201000 

40202000 

40203000 

PPOCFOURE PASSPARAM5; 40204000 

BFGIN _ _ . _ _ 40205000 

40206000 
40207000 
40208000 

40209000 

PUTTD( w V M ,1000xTHTSLFVFI +TuTS INDEX ,5 ) J 40210000 

PtfTHjSJpiluFOj . 40211000 

FORMALPROC IpBOOLF AN f THIS ID FORMAL)* 40212000 

NPARSl.PARAMTARCPlI Plip+Tj 40213000 

TF PORMA^PRnC THFN NPARS«*o999* 40214000 

TNSYMBDLJ 40215000 

IF CURSY-LPAR THFN 40216000 

PFGlN 40217000 

PUTSYM(«f«)| 40218000 

00 BFGIN 40219000 

INSYMBOI t 40220000 

IF NPARS«0 THFN BFfiTN rRR0R(3)J SKTp(RPAR)* GO TO FXIT END? 40221000 

PARAMl«pARAMTABrP3» Pt«P+l* 40222000 

PTYPEI*PARaM>aRAMTYPfT 40223000 

IF PARAM,PARAMKTNO»fON«sT THEN 40224000 

BEGIN „ 40225000 

OHECK.t-CHFCKOPTTnM AmO TYPETABl t PTYPF 3 .FORM LFQ CHARJ 40226000 

IF CHFCK THFN PUTTEXt ( "CHECK? " ) J 40227000 

PUTOUMMY) FTB5TSYMl*wUMSYMSj 40228000 

fxprlfveli-fxprlfvelIi; 40229000 

fxprfssioni fxprjevrli-exprlevel-1) 40230000 

tf curmoof»rttpatterw then 40231000 

BEGIN SYMTABTFIRSTSYM]!." REAL< m J PUTSYM( •»)«) I END* 40232000 

TF CHFCK THFN 40233000 



N , 

TMTFGEP npars#param,ptype#p#firstsymj 
poolean FORmALPROCCHFCkJ 
LABEL FXITI 



REGIN 40234000 

PUTSYMf","); PlJTC0wSTfTYPETAB2EPTYPEJ); 40235000 

PUTSYMf ","); PlJTC0KiSTfTYPFTAB3rPTYPE]); 40236000 

PUTSYMf"*"); PUTCOniST(CARDCnT); PUTSYMf)")) 40237000 

FND; 40238000 

END ELSF 40239000 

IF PARAM»PARAMKTND»\/AR THEN 40240000 

BEGIN . 4Q2410O0 

TF CURSypTDFNTIFTfR tHEN 40242000 

REGIN 40243000 

SEARCH; 40244000 

IF FOUND THFN 40245000 

BEGIN 40246000 

TF THTSTOlmri'AS««VAR OR 40247000 

THTSTD.TDci AS««CONST AND BOOLEANf THl SID .FORMAL ) THEN 4Q248000 

RPGIN 40249000 

IF PARAM>ARAMrILE»l THEN 40250000 

BEGIN . 40251000 

curtypf««thi«td,type; 40252000 

PUTTDf"V".*10nOxTHlSLEVEL + THTSlNDEX#5)) PUTSYMf","); 40253000 

PUTT0f"F"",'l0n0xTHlSLEVEL + THlSlNDEX#5); PUTSYMf","); 40254000 

PUTT0fI"."l0n0xTHlSLEVEL + THTSlNDEX*5); 40255000 

TNSYMROL; 40256000 

END FISF 40257000 

8EGIN 40258000 

VARTAPLFJi . 40259000 

IF TYPFTAPlfH)RTYPE].STRUcT>0 THEN 40260000 

TF NOT STMPLfVARIABLE THEN ERR0Rf92); 40261000 

END) 40262000 

END ELSF REGTw EoR0Rf8)J CURTYPFmO END) 40263000 

END ELSE BFGIN FRRnRfl)) CURTYPEI-0 END; 40264000 

FND F| SE BFOTm FRRORc'9); CURTYPEI«0 FND; 40265000 

END ELSF 40266000 

BEGIN 40267000 

TF CURSY.TDFNTTFTFR tHFN 40268000 

BEGIN ' 40269000 

SEARCH; 40270000 

IF FOUND THFN 40271000 

PEGTN 40272000 

TF THTSTOlTDCi A5j*PARAMlPARAMKlND THEN ERR0RJ91); 40273000 

PllTlDf"V",1000xTiTSLEVEL + THlSlNDEX#5); 40274000 

CHRTYPFI«TF ThIStdII0CLASS«F1INC THEN THISTO.TYPE ELSF 0; 40275000 

IMSYMBOLJ 40276000 

END ELSF RFGTN FRRnRfl); CURTYPEI*0 ENDJ 40277000 

FMD Fl SE BFGTM ERR0Ri»*9); CURTYPEl-0 END; 40278000 

END; 40279000 

CHFCKTYPESf PTYPF, CimTYoF ) ; 4 028 0000 

nparsi*npars"»T; 40281000 

IE CURSY-CDMMA THFN PUTSYMf"»")J 40282000 

FND UNTIL CURSY/CDMMAJ 40283000 

TF CtJRSYfPPAR THEM BEGIN FRR0Rffl9); SKTPfRPAR) END I 40284000 

EVlTt PUTSYMf")"); 40285000 

TF CllRSY«RPAR THEM TnSYMpOL* 40286000 

FMDJI 40287000 

TF NPARS>0 AND NOT FORMaLPoDC THEN ERR0Rf3); 40288000 

PURM0DFI»NUMBER; 40289000 

END DF PASSPARAMS; 40290000 



40291000 

40292000 

PROCFDURE FACTORJ **** FACTOR *** 40293000 

BFGlN X************** 40294000 

JNTFGFR START5YM,STYPF.TJ 40295000 

BOOLEAN FIRSTJ 40296000 

RFAL VAL1 40297000 

_ - 40298000 

DFFTNE PARAMFTrR» **** CHFCK THAT THE FUNCTION HAS 1 PARAM, 40299000 

PFGIN 40300000 

IN5YMB0L) 4030J000 

IF CURSY-LPAR THFN 40302000 

BEGIN 40303000 

PUTSYM ("?"))_ INSYMRnL; EXPRESSION* 40304000 

TF TYPETABirCl)RTYPFl*FORM»NuMERlC THFN CljRTYPF « «T NTTYPE J 40305000 

TF CURSYXRPAR THFN RfGIN ERR0R(3)J SKlP(RPAR) ENDJ 40306000 

PUTSYM(")")J if rUR<Y»RPAR THEN INSYMBOLJ 40307000 

ENO ELSF FRRORfSJJ 40308000 

FND OF PARAMETER*! 40309000 

40310000 

CURMODF»*NUMBERj 40311000 

TF CURSYMDFNTTFTFR THFM 40312000 

BEGIN 403J3000 

SEARCHJ 40314000 

TF FOUND THEN 40315000 

PEGIM _ 40316000 

IF THISTD,,TOCl ASSwVAR nR 40317000 

THISTD,TD0LA5S«0ONSt AND BOOLEANCTHTSID. FORMAL) 40318000 

THFN VARlAPLF FLSF 40319000 

IF THISTO.IDOL ASS»r0NST THEN 40320000 

BEGIN # w 40321000 

TF THTSID.INF0<10?3 tHEN PUTCONSTfTH IS ID . INFO) 40322000 

PLSE PUTC0NST(C0NSTTABCTHTSlO.INF0-lO231);403230O0 

CURTYPEI»THIST0>vPeT CURMODEIuNUMBFRJ 40324000 

INSYMpOLI 40325000 

ENO ELSF 40326000 

IF THISTO.TDCLASSwFHNC THEN 40327000 

BEGIN 40328000 

TF THTSTABsO THFN **** INTRINSIC FUNCTION *** 40329000 

PEGIM 40330000 

INTFGER DUMMY; . 40350000 

TF CURNAMFl«"3000AnS" THEN % "ABS" 40351000 

BE6TN 40352000 

PUTTFXTCV ARS^J PARAMETERI 40353000 

TF CURTYPF^RFALTvPF AnD CURTYPFXTnTTYPE THEN ERR0RC67)! 40354000 

END ELSE „ 40355000 

IF CURNAMF1«"3000CuR w THEN % "CHR" 40356000 

BEGIN 40357000 

INSYMBOI t 40358000 

IF CURSY»LPAR THpN 40359000 

RFGIN TNSYMBOi'I CHECKEXPR( 0*63 ) J 40360000 

TF TYPFTABifCURTYPEl.PORMXNUMERTC THEN ERR0RC67); 40361000 

IF eURSYXRPAR THEN BEGIN FRR0R(46)J SKTP(RPAR) ENDJ 40362000 

TF CURSY«RPAR THEN INSYMBOLJ 40363000 

END ELSF FRR0Rf5«)J 40364000 

CllRTYPFt«CHARTYPr) 40365000 

ENO ELSF 40366000 



IF CURNAMFl«"30ftOEnF M OR 

CURNAMFl*"40nE0i'N" THEN 
BEGIN 

FtR5TJ«CURNAMP1>»«3000EOF"; 
FTLEPARAMflNPllTFfLE)* 
PUTInC-T w #FTi FNAmF*5)J 
PllTTFXTrTF FTRST THEN " . 
TF LPARFOlJND THEm 
RFGIN 

IF CURSY*RPAR tHFN 

IF CURSY*RPAR THEN 

FNDJ 

Cl'lRTYPFI-ROOLTYPr; 
END ELSF 

IF rURNAMFI jB w 30ftOnnn M THEN 
BEGIN 

PtiTTFXTf" nnD^'sJ PARAMETER! 

IF CURTYPF/TNTTYpE THEN ERR0R(67i 

CllRTYPF«»BOOI. TYPeJ CURMDDE I«BITP 
END ELSE 

IF fURNAMF1« w 30000on" THEN 
BEGTN 

P|lTSYMf»f")J INsYMBOU 

IF CURSY*LPAR THrN 

RFGIN 

INSYMpOLl ,EXPPFSSI0NJ 

IF TYPFTAB1 rCU»TYPE].Ff5RM>CHAR 

IF CURSY^RPAR THEN BEGIN ERRORf 

... ..I.NSYMBOLJ . 
END ELSF FRRfl««5«)J 
CURTYPFI»TNTTYPET PUTSYM( m )")J 
END ELSF 
IF rURNAMFiB M aOnPRrn w OR 

CURNAMF1*"400SUrC" THEN 
BEGIN 

FTRSTI«CURNAMFl»wflOOPRED w ! 
PtlTTFXTCCHFCKC/iJ INSYMBOLJ 
IF CURSY«LPAR THrN 
RFGIN 

INSYMROI i FXPoFSSIONj 
PUTSYMfTF ETRSt THEN «•" ELSE " 
IF TYPETAR1 rCU»TYPE]#FORM>CHAR 
PUT5YMf**Ml PUTCONSTfTYPETAR? 
PUTSYMf ",">£ PlJTCONST(TYPFTAB3 
PUTSYMf",*} j PllTCONSTf CARDCNT) 
PUTSYMf ")")» 
IF CURSY^RPAR 



% «cor M / M EOLN w 



EOF" FLSE w .EOLN"5) 



BEGIN ERRORU65J SKTP(RPAR) END; 
INSYMBOLI 



% "ODD" 

I 

ATTERNJ 

% "ORO" 



THEN ERR0R(67)J 

46)J SKIP(RPAR) END) 



% "PRFO'VSUCC* 



if cursy«rpar 
end flsf rfgin 

ENH ELSE 

IF CURNAMF1« m 5OP0UmD w 

BEGTN 

PllTTExTf" ROUND"*-!* 

if curtypfVrfaltvpe 

NllMSYMSt»NUM5YMS;i) 
PllTCONSTCCARnrNTiJ 

cuRtypfi»tnttypeT 



THEN BEGIN ERRORf 
THEN INSYMBOU 
EpPOR(58)J CURTYPE 



THEN 

PARAMETER) 
THEN ERR0R(67 
PUTSYMf", ")J 
PUTSYM(")")J 



+")) PUTSYM( M 1 M ); 

THEN ERR0R(67)J 

CCURTYPE3)) 

tCURTYPED) 

1 

46)J SKIP(RPAR) END) 

•■o end; 

* "ROUND" 



)} 



40367000 

40366000 
40369000 
40370000 
40371000 
40372000 
40373000 
40374000 
40375000 
40376000 
40377000 
40378000 
40379000 
40380000 
40381000 
40382000 
40383000 
40384000 
40385000 

40386000 
40387000 
40388000 
40389000 
40390000 
40391000 
40392000 
40393000 

40394000 
40395000 
40396000 
40397000 
40398000 
40399000 
40400000 
40401000 
40402000 
40403000 
40404000 
40405000 
40406000 
40407000 
40408000 
40409000 
40410000 
40411000 
40412000 
40413000 
40414000 
40415000 
40416000 
40417000 
40418000 
40419000 
40420000 
40421000 
40422000 
40423000 



ENO ELSF 40424000 

IF fURNAMFl- w 3000SoR" THEN % M SQR M 40425000 

BE6TN 40426000 

PllTTFXTf" S0R"sJ PARAMETER) 40427000 

N|JMSYMSl«MUMSyMS-j; PUTSYM(",")j 40428000 

PIlTCONSTfCARnrNT''*) PUTSYMC )» ) ) 40*29000 

IF CURTYPPJfRFALTvPE AND CllRTYPEXTNTTYPE THEN ERR0RC67)) 40430000 

END ELSE 40431000 

IF rURNAMF!« ,, 50TRUMr , THEN % "TRUNC" 40432000 

BEGIN 40433000 

PUTTEXTf" TRUMC M 3l PARAMETER) 40*34000 

NliMSYMSf-NUMSYMS-lJ PUTSYMf", » j j 40435000 

PUTCONST<CARnfNT>; PUTSYMC ")») J 40436000 

IF Ct)RTYPF*RFALTvPE THEN ERR0Re67)) 40437000 

ciirtypfi-tnttypej 40438000 

end else 40439000 

IF rURNAMFl« M 6tnNCAT H THEN * "CONCAT" 40440000 

CQNfAT FLSE 40441000 

IF OURNAMF1*"400TImF m THEN X "TIME" 40442000 

BEOTN 40443000 

PllTTFYTCfTTMFr^J PUTTEXT C " 1 5/60 )" ) ) 40444000 

CltRTYPFl-REALTYPp) INSYMBOL) 40445000 

END EL5E 40446000 

IF CURNAMF1« w 40<">DAtF m THEN % "DATE" 40447000 

BE6TN 40448000 

PUTTEXTfCURnAT"!) 40449000 

Cl'iRTYPFt«ALFATYPrJ INSYMBOLJ 40450000 

ENO ELSE 40451000 

IF. rURNAMFl«"7F| APcF" AND CtjRN AMF2«"D W THEN * "ELAPSFD" 40*52000 

8E6TN 40453000 

PllTTFXTfVTTMFClJ PljTTFXTC "2 )/A0 >" ) I 40454000 

CliRTYPFl»REA| TYPpJ INSYMBOL) 40455000 

END ELSF 40456000 

IF CURNAMF1»"6TnTlMF" THEN % w IflTlMF w 40457000 

BEGTN 40458000 

Pl!TTFXT("fTTMF('M) PUTTFXT( "3 )/60 ) w ) i 40459000 

CllRTYPFl»RFAI TYPpJ INSYMBOL) 40460000 

ENO ELSF 40461000 

IF rURNAMFi«"7WPEKnA" AND CURNAMF?«- M Y" THEN % "WEEKDAY" 40462000 

BESTN 40463000 

PUTTFXTf M WFFKnA H '>») 40464000 

CiiRTYPFiwALFAtYPf) INSYMBOL) 40465000 

FNO ELSF TF CURNAMp1«"400uSER h THFN % "USFR" 40466000 

REGTN 40467000 

PUTTFVTf" TTME"'">J PUTTEXTf" C-1)")J 40468000 

CllRTYPFl-ALFATYPp) ^SYMBOL) 40469000 

ENO ELSF % H SIN W # W C0S" ETC. 40470000 

BEGTN 40471000 

PltTTFXTfTF CIIRNAMF1» M 3000SIN" THFN " SIN" FLSE *0*?2000 

IF CIIRNAmE1«"3000C0S" THFN " COS" FLSE 40473000 

IF CllRNAMFlw"6ARCTAN M THEN "ARCTAN" ELSE 40474000 

IF etJPNAMFi*"400SQRT" THEN " SORT" FLSE 40475000 

Tf CUPNAmf1«"3000F.XP" THfN " EXP" FLSE 40476000 

" Lm")J 40477000 

PARAMFTFRI 40478000 

IF CURTYPFJ'RFALTyPF AND CURTYPF* I NTTYPE THEN ERR0R(67)J 40479000 

CnRTYPFl«REALTYPp) 40480000 



FNO) 40481000 

FND OF INTRINSIC FUNCTIONS ELSE 40482000 

BEGIN 40483000 

Tl«THISin.TYPF? 40484000 

PASSPARAMS) 40485000 

CURTYPfi-TJ 40486000 

FNO) , 40487000 

ENO.OF FUNCTIONS FlSE 40488000 

IF THIST0.IDCLAS5«PR0C THEN 40489000 

BEfilN 40490000 

FRR0Rf6B)j PASSPARAmS) 40491000 

CURTYpEl«0) 40492000 

END ELSF BFGTN FRR0Re6o)J CURTYPEl»0) TNSYMBOL FND) 40493000 

FND FLSE RE6IN FRRORM)) CURTYPFl*0) INSYMBOL END) 40494000 

FNO OF TOENTlFlFR FL SF 40495000 

IF CURSYSCHARCONST THFN 40496000 

BFfiTN 40497000 

CONSTANTO/ALfCURTYPF")! olITCONST C VAL ) ) 40498000 

FNO ELSE 40499000 

IF CURSY«NOTSY THEN 40500000 

RFOTN f 40501000 

PUTTFYTf" NOT " ) ) PliTDnMMY) STARTSYM l«NUMSYMS) 40502000 

TNSYMBOL) FACTOR) 40503000 

IF CuRTYPE>0 THFN _ 40504000 

IF CURTYPF/BOOLTYPF THEN BEGIN ERR0RU7)) CuRTYPEl«0 END; 40505000 

IF CtJRMOOF»NlJMBFR THFN 40506000 

BEGIN SYMTABrSTARTSYMila* B<") PUTSYMC " )♦♦)) 40507000 

CURMOOFt-PTTPATTERwJ 40508000 

FND) 40509000 

FNO ELSE 40510000 

IF CURSY»NI|.SY THFN 40511000 

BFGIN 40512000 

PUTCONST(O)) CURTYPF«*NtLTYPE) 40513000 

TNSYMBOL) 40514000 

FND ELSE 40515000 

IF CURSY*LPAR THFN 40516000 

BEGIN 40517000 

PUTSYM ("(")) 40518000 

TNSYMBOL) EXPRFSSTON) 40519000 

IF CURSY*RPAR THFN BFftIN FRR0R(46)J SKTPfRPAR) ENO) 40520000 

PUTSYM( M 5 W )J 40521000 

TNSYMBOL! 40522000 

FND ELSE 40523000 

IF CURSY-LBPACKFT THFN %*** SET CONSTANT *** 40524000 

PFGiN 40525000 

TNSYMBOL) 40526000 

IF CURSy-RBRACKFT THFN 40527000 

RFSIn 40528000 

PUTC0NSTC05) CllRTY PE » iFMPTYSET ) CURMODEj ■ NUMBFR) 40529000 

INSYMBOl ) 40530000 

FND ELSE 40531000 

BFGIN 40532000 

FlPSTmTRUF) 40533000 

DO BEGIN 40534000 

IF FIRST THFN FTRSTI»FALSE ELSE INSYMBOL) 40535000 

PUTTEXT?" BIT*"}? «TARTSYM l«NUMSYMS J 40536000 

EXPRESSION) 40537000 



TF STYPf.O THFN 40538000 

BFGIN STYpFl»CURTYPF7 40539000 

IF TVPFTAB?,rCUoTYPC].F0RM>CHAR THEN ERR0R(7?); 40540000 

FMO F! SF CHFCKTYPFS(5TYPF»CURTYPF)I 40541000 

IF CURSY«onilRLFOnT TuFN 40542000 

RFGIN m 40543000 

PUTsYM(",")J SYMTsBCSTARTSYM] t» w BITSCJ 40544000 

INSyMBOLJI FXPRFSStON; 40545000 

IF STYPF*0 THFN 40546000 

BEGIN STYPFi*CURTYpFJ 40547000 

TF TYPFTARltMJRTYPEl>ORM>CHAR THFN FRR0R(72)J 40548000 

END FLSF eHFCKTYPE«f5TYPE,CURTYPE}J 40549000 

END' 40550000 

PUTSYMC","); PUTrON$TCCARDCNT)J PUTSYM(»)")j 40551000 

TF CURSY«C0MMA THFN PllTTExTC OR")J 40552000 

END UNTtL CURSY/COMMAj 40553000 

IF CURSY^RBRACKFT THEN «O5540Q0 

BEfilN FRR0RM9)! SKlP^RBRACKET); 40555000 

IF CURSY«RBRArKET THEN INSYMBOLJ 40556000 

END ELSF INSYMBOLJ 40557000 

NEWTYPFJ T1I.SFTJ Tl!siZE»»l) Tl . STRUCT l «0J 40558000 

T1.SETTyPEI«STYPF; TYpFTAB1[TYPEINDEX1I*T1J 40559000 

CURTYPF1»TYPFINDEXL 40560000 

CURMODFt»BITPATTFRNj 40561000 

W 40562000 

FNH OF SET fONSTANT FLSF BrGIN ERR0R(99)J TNSYMBOL FNDJ 40563000 

EMD fiF FACTOR! 40564000 

40565000 

„ - 40566000 

PROCFOIIRC TFRMI **** TFRM *** 40567000 

BFGIn X************ 40568000 

TNTFGFR STARTSYM*M0nF#TYPF7*MUL0PTR#Fi 40569000 

PUTDUMMYJ STARTSYMt-NHMSYMS; 40570000 

PASTOR; 40571000 

MOOFt-CURMOnFj _ 40572000 

WHTI E CURSY>ASTFRTSK AND CuRSYSMODsY DO % »*»,«/», "OTV M #' , MOD M » • , AND"40573000 

"FOIN 40574000 

TYPEH-CURTYPF; MyiOPTRf«CURSYj 40575000 

F!*TYPETARUTYPF1 l.FHRMJ 40576000 

TF F«NUMFRlC OR FsFLOATIwfi TH£N 40577000 

Br SI N 40578000 

M00E«»NllMBFRJ 40579000 

IF CUR5Y»ASTFRTSK THEN PUTSYMf «x«) FLSF 40580000 

IF CURSY«SLASH THFN pUTSYMC "/" ) FLSF 40581000 

IF CUrSY*ANDSY THFN FRR0R(64) ELSF 40582000 

BEGIN . 40583000 

TF F"FU0ATIN0 THFM EpR0R(64)J 40584000 

IF CURSY-DTVSY THFN puttEXT?" DIV m ) ELSF PlJTTFXTf" MOD")! 40585000 

FND END El SE 40586000 

TF CyRTYPP»BOOLTYPF OR F.SET THpN 40587000 

PFGlN 40588000 

MODEl*RTTPATTFRN) 40589000 

IF CURMnDE*M0DF THFM 40590000 

BEGIN SYMTARfStARTSYM]*t* M Bf"| PUTSYMC)") FND; 40591000 

PUTTEXTf" ANO «)J ^ w 40592000 

IF CURSY*(TF F«SET tHFm ASTERISK ELSF ANDSY) THFN FRR0R(64)J 40593000 

FND FLSE FRRflR(64)J 40594000 



PUTOIIMMYJ STARTSYMl«MUM«!YMSJ 

TnSYmBOL^ FACTOR* 

TF CURTYPF>0 AND TYPF1 >0 THFN 

BFGlM 

IF CURTYPF*TYPF1 THrN 
R Ff I N 

TF TYPFTABirTYPFn>nRM^NUMFRIC OR CURTyPFj'RFALTyPE THEN 
CHFCKTYPFSfTYPFi.rURTYPF); 

TF TYPEURFALTYPF THrN CURTYPEI -RFALTYPE J 
ENnJ 

IF CUrTYPF«rFALTYPF ANn MULOPTRiDlVSY THEN ERR0r(65)J 
FNDJ 

TF MULOPTP*SLaSH THFN CUoTYPEt -REALTYPF J 
TF C|]RTYPF»0 THFN CuRTYPr I «TYPEl I 
FNO OF WHILF LOOPi 

TF MOOF.BITPATTFRN AND rURMODF*MOOE THEN 
RFRIN .SYMTABESTARTSYMHb" B( m J PUTSYMC " >" ) END; 
fURMOOFI«MpnEj 

fmo of term; 



PROCFnUPE stmplfe^pRfsstonj 

BF6IM 

TNTFGER STARTSYM#MOOF»TvPe7»FJ 
BOOLEAN SIGNED! 



%*+* simpuf expression *** 



PUTOUMMYI STARTSYMioNDMSYMSi 

TF eURSY«PLUS OR CIIRSYbmINmS THEN 

BFfilN SIGNFM*TRUFJ 

PUTSYM(IF CURSYbPJUS THFN"*" ELSF m -")J 

TNSYMpOLJ 



FNni 

TFRMJ 
MOOF«« 
TF SIR 
PFRTN 



ruRMooEi 

MEO THEN 

FI«TYPETAR1 rniRTYPFl*FORM; 

TF F^MUMFRTC AND F^FJ'OATING THEN ERR0R(?9)J 



FNHJ 

WHTLE rURSY>PLUS ANO CURSY«ORSY DO 

BFGTN 

TYPF 

TF F 

BFGI 



% « + ",««% »nR w 



1 t«CURTYPF) FI»TYPEtAB1[TYPF13.FORM; 
^NUMERIC OR F-FLHaTImG THEN 
N MODFI-NUMBFR) 

IF rURSY-PLUS THEN PUTSYM("+") FLSF 
IF CURSY« MINUS THEM PUTSYMC"-") ELSE ERR0Rf64)J 
FNO FLSE 

TF CIJRTYPF»B00LTYPF THEN 
BFGIN 

mooei«rttpattfrm; 
if curmhoe^mone thfn 

BEftIN SYMTABfSTARTSYMl ,m" B("J PtJTSYM (" )" ) FNDJ 

IF CURSY«ORSY THFN PUTtFXTC" OR") FLSE ERR0Rf64)J 
FND £L5E 
TF FiSFT THFN 
RFGIM 

MOOF««BTTPATTFRNJ 

IF CURMnDF/MOOF THFM 



40595000 
40596000 
40597000 
40598000 
40599000 
40600000 
40601000 
40602000 
40603000 
40604000 
40605000 
40606000 
40607000 
40608000 
40609000 
40610000 
40611000 
40612000 
40613000 
40614000 
40615000 
40616000 
40617000 
40618000 
40619000 

40620000 
40621000 
40622000 
40623000 
40624000 
40625000 
40626000 
40627000 
40628000 
40629000 
40630000 
40631000 

40632000 
40633000 

40634000 
40635000 
40636000 
40637000 
40638000 
40639000 
40640000 
40641000 
40642000 
40643000 
40644000 
40645000 
40646000 
40647000 
40648000 
40649000 
40650000 
40651000 



AND")JPUTTEXT<" NOT " 



FMO 



BF6IN SYMTARrSTARTSvM]f« M Bt w l PlJTSYMC " )" ) FNDJ 

IF CURSY-PLUS THFN PUT,tFXTC w OR") FLSE 

IF CURSY-MTNUS THFN REftTN PUTTEXT(" 

ELSF EPP0R(64)J 
FND FLSE FRR0R.64.J 
TNSYMBOL* 

PUTDIIMMYJ STARTSYMi.MUMetYMSJ 
TFRMJ 

TF CURTYPF>0 AND TYPF?>0 THFN 
PFGIm 

IF CURTYPEJ'TYPFl THfN 

BEGIN 

TF TYPETAB1TTYPF1 1>nRMXNUMFRIC OR CURTYPE^RFALTYPE THEN 
CHFCKTYPFSfTYPFl.PURTYPE)) 

IF TYPE1«RFALTYPF THpN CURTYPE « «REALTYPF J 
FND FNDJ 
TF Cl)RTYPF*0 THFN CUPT Y Pr l«TYPEl i 

FND OF WHILF LOOP; 

TF MOOFbRITPATTFRW AND CURmODFXB ITPATTFRN THEN 

PFfifN, SYMTABtSTART5YM3l» w BC* PUTSYMf*)") END) 

fUPMOOFI«MOnE; 

HF SIMPLFEXPRESSIONJ 



PPOCFOURE FXPRFSSION) 

BF6IN ... ______ 

TMTF6EP startsym#ftrstsym»typei*reloptr#fj 
BOOLEAN call gfmj 



%*** FXPRESSION *** 



FXPRlEvEL»*FXPRLFVFL + l J 
TF FXPRLFVFI « 1 THFN 
BFfiTN 

PUTOLIMMY) 

FTRSTSYM f» NUMSYMSJ 
FNDI 

putnUMMYj startsymi«numsyms; 
putoummyj 

SfMPLEFXPRFSSTONJ 
TF rURSY>LSSSY AND 
PFfilN 

TYPFl l«CURTYPFJ 
RFLOPTRlprURSY) 
TF F<ALFA THEN 
RFGIN 

IF rURMHOE-RlTPATTFPN THEN 

BEGIN SYMTARrSTARTSYMli-." REAL. "J 

IF CURSY«»L5S5Y THFN PUtSYM . M <" ) 



PUR<5Y<ImSY THEN 



% "<•♦ »"<"»•* J", W > , '* ,, * W # , W M 



FUBTYPFTABltTYPFl-.FORMJ 



IF CURSY»LFOSY THFN 

IF CL)RSV*GFQSY THFN 

IF CURSY"GTRSY THFN 

IF CURSY-EQLSY THFN 

IF CURSYSNFOSY THFN 

BEGIN 

TF F>FLOAT TN>, THFN EoR0R(64)J 
SYMTAR [STARTSYM] ti"lMTST (") 

ENDJ 
FND FLSE 



PUtSYMCS") 
PUtSVM( m _;") 
PUtSYMC m > m ) 
PUtSYM("» m ) 
PUtSYM."*") 



PlITSYMC")") 

ELSE 
ELSE 
ELSE 
ELSF 
ELSF 
ELSE 



FNDJ 



PUTSYMf", M )J CALLGFNI-TRUEJ 



40652000 
40653000 
)END40654000 
40655000 
40656000 
.10657000 
40658000 
40659000 
40660000 
40661000 
40662QQ0 
40663000 
40664000 
40665000 
40666000 
40667000 
40668000 
40669000 
40670000 

40671000 
40672000 
40673000 
40674000 
40675000 
40676000 
40677000 
40678000 
40679000 
40680000 
40681000 
40682000 
40683000 
40684000 
40685000 

40686000 
40687000 
40688000 
40689000 
IN"40690000 
40691000 
40692000 
40693000 
40694000 
40695000 
40696000 
40697000 
40698000 
40699000 
40700000 

40701000 
40702000 
40703000 
40704000 
40705000 
40706000 
40707000 
40708000 



PUTSYMf")") end; 



»■« flse «^)j 



FLSE 
FLSE 



FRR0R(64)J 



TF F«SET THFN 
RFGIM 

IF CURMnDE-RTTPATTFPN tHEN 

BFGIN SYMTARrSTARTSvM+T]l»" REALCJ 

IF CURSY«FOLSY OR CllRSv«NEQSY THEN 

BE6IN PtlTSYMCTF ClIRSY-rOLSY THEN 

END ELSP 

BEGIN 

TF CURSY-LFCSY THFN « YMT AB C ST ARTSYM ] t ""INCLH " 

IF CHRSYaRFOSY THFN «YMT AB I ST ARTSYM ] | ■ " INCL2< " FLSE ERRDRC 

PUTSYMC, »)J CAI i GEwl*TRUEJ 

FNO END CI SE 

TF F.POINTERS THFN 

PFSIM 

IF CURSY'FOLSY THFN PUtSYMC "»» 5 ELSE 

IF CURSY»NEOSY THFN PUtSYM( "*" ) ELSF 

fnd else frr0r(64w 

tnsymbolJ 

putdummyj startsyml 

stmpleexpresstoni 
TF CURTYPF>0 ANn typfT>o then 
IF CURTYPE*TYPF1 THrN 
TF REl OPTRMNSY THEN 
RESIN 

IF TYPFTARUTYPF13 FORM/NUMERIC OR CURTYPE*REALTYPE THFN 
CHFrKTYPFSf TYPFl"#Ci'iRTYPE)l 
FND Fi'SE 
TF TYPETABlFri)RTYPE]*FaRM^SET THEN FRR0RC66) 

Fl SF ChPCKtYPES(TYPE1,TYPFTAB1CCURTYPE] .SETTYPF) 
TF CljRMOnF»BTTPATTFRN THrN 

RFSIN SYMTARrSTARTSYM1l*H REALCJ PUTSYMC)") END* 
TF CALLGFM THEN PUTSYmC h >*)J 
fURTYPElBROOLTYPFJl HlRMnOE I»BITP ATTFRN J 



«MUM«}YMSJ 



FmD 



FNDJ 

fxprleveli»fxprlfvfl-i i 

TF FXPRLEVpi »0 THfN 
RFRTN 

TF CURMOnFwRTTPATTFRN 
RFGIM 

SYMTABTFIRSTSYMJ is 
PUTSYMf")")* 
FND) 
WRITFFXPRJ 

rnht 

nF FXPPESSTHNI 



THfN 



pFALCJ 



OFFlwE 
BFGIN 
PUT 

TF 

TF 

PEG 
FYP 
END HE 

% 



ROOLEYPR. 

DUMMY* FXPRLFVFt. !■?? rXPRESSlONj 

CURtYPE>ft THFN TF CURTY»F*BOOLTYPE THEN ERROR(17); 

CURMODE*RlTPATTFRN THEN 

TN SYMT«Btni»" Rf H ; PUTSYMC)*) END) 

RLEvEL»»n) WRTTFFXPRJ 

BOOLEXPR«i 



40709000 

40710000 
40711000 
40712000 
40713000 
40714000 
40715000 
40716000 
40717000 

64);40718000 
40719000 
40720000 
40721000 
40722000 
40723000 
40724000 
40725000 
40726000 
40727000 
40728000 
40729000 
40730000 
40731000 
40732000 
40733000 
40734000 
40735000 
40736000 

; 40737000 
40738000 
40739000 
40740000 
40741000 
40742000 
40743000 
40744000 
40745000 
40746000 
40747000 
40748000 
40749000 
40750000 
40751000 
40752000 
40753000 
40754000 
40755000 

40756000 
40757000 
40758000 
4 0759000 
40760000 
40761000 
40762000 
40763000 
XXXX50001000 
X50002000 



r 



g X X50003000 

X X50004000 

X PART 51 INTRINSIC ROUTINES. %50005000 

x ,1„.. — •...••.,••.. X50006000 

* X50007000 

* X50008000 
X X50009000 
**XX***XXX**XX*fXX*XX***XX**XX**XXXXXX*XXXi;*XX*XXXXXXXX*XXXXXXXXXXXXXXXX500l0000 

50011000 

50012000 

PROCEDURE rONCAT* X*** "CONCAT" *** 50013000 

BFGTN %**************** 50014000 

DEFINE INTFyPR* 50015000 

B.FflJN INSYMROL* FXPRESSTONi 50016000 

TF CURTYPF>0 THFN 50017000 

TF TYPFTABirri)RTYPF!l FORM^NUMERIC THFN ERR0RM7JJ 50018000 

Fwn #; 50019000 

50020000 

PUTTEXT( M CONCAT w »l PUTSYM*»{"> J 50021000 

TNSYMBOU 50022000 

TF CURSYsLPAR THFN 50023000 

RFfilN 50024000 

TNSYMBnui EXPRESSION* 50025000 

TF CURTYPF>0 THFN 50026000 

TF TYPETARHCURTYPFIjIfORiOALFA THEN FRR0R(175; 50027000 

TF CtlRSY«f0MMA THFN 50028000 

RFGIM 50029000 

PUTSYMf «*")J TNSYMROlT EXPRESSIONJ 50030000 

IF CURTYPE>0 THFN 50031000 

IF TYPETAB1 CCURTYPF1.FnRM>ALFA THEN ERR0RC17); 50032000 

IF CURSY-COMMA THFN 50033000 

BEGIN 50034000 

PUTSYM(",«)J TNTFXPoJ 50035000 

TF CURSY»COMMA THFN 50036000 

REGIN 50037000 

PUTSYM<".")J TMTEvPRI 50038000 

IF CURSYaCOMMA THEM 50039000 

BEGIN 50040000 

PtlTSYMf", ")J INtFXPRJ 50041000 

Pl'lTSYMf "#«)J PUtCONST(CARDCNT); 50042000 

PyTSYMr«)")J 50043000 

IF CURSY^RPAR THrN BEGIN ERRORm* SKIP(RPAR) END) 50044000 

ENO ELSF RFGTN FRRnRf3)J SKlP(RPAR) ENDJ 50045000 

FND Fl SE BFBTN FRRDRiO)* SKIP(RPAR) FNDJ 50046000 

F.ND ELSF RFfiTN FRROPO'tl SKlPfRPAR) END* 50047000 

FND FL5E REGIN FRRORM)* SKIP(RPAR) END; 50048000 

FND ELSE BFftlN FRR0R(3}» St?TPfRPAR) ENO) 50049000 

rURTYPFlPRFALTYPF; 50050000 

TF CURSY*RPAR THFN TNSYMBOt'j 50051000 

END HF CONCAT; 50052000 

50053000 
50054000 

PROCFDURE PREAHf CHANGFLTNFli 50055000 

" VALUF fHANGELINFJ rqolfaN f»MAN«FLINEJ 50056000 

BEGIN 50057000 

INTEGER FILFID#F» 50058000 

RHOLEAM CHFOK; 50059000 



GFNf" BEGIN", 7, 2); 

riLrP*RAM(lNPUTrfLF)J FlLeTD«-FlLENAME; 

TF TYPFTABirCURTYpF].FnRM«rTLFS THFN ERR0R(85); 

TF SYMKINDfrURSYl^TFRMTMAL THFN 
RFGTN 

TF CURSY NFS RPAR THFN 
HO BFGIN 

WHILE CtlRSY.COMMA 00 ImSYMBOL; 
IF CURSY«Ir>FNTTFlFR THpW 
BEOTN 
SEARCH; 
TF FOUND THFN 
RFGIM. 
TF THlSTO;TDCLAS«S<sV«R OR 

THlSTO.IOCLASS-CnNST AND BOOLEAN? THlSID. FORMAL 5 

RFGIm 

VARTARLFJ F I *TYPEt ABl t CURTYPE 3 , FORM; 

IF F»NHMFRTC OR F*r|_OATING OR F-CHAR THFN 

BEGTN 

CHECKl-CHFCKHPTInN AND FXFLOATlNG; 
WRITFFXPRJ ftFNCM* H ,2,6); 
TF CHFCK THFN GEw( "CHECK? M ,6,2 ) I 

GFN(«PRFAOC.i«.,2<»j GENI0( M F M #FTLEID,5)I GFN(», 
GFN!nf-V%FTi PlO>); GFNC %% 1 ,7 ) J 
GFNID< W I%PT| FlO.5); GFNC%%1,7); 
FaNUMFRIC, THr-N GENlNT(2> FLSF 
F»FLOATTNR THpN GENINTC3) FLSF GFNINTM); 

GFNINT(CARDCNT) J GEN(">"»1»7)J 



THEN 



,1,7); 



FmO 



TF 
TF 
GFN(%% 1,7)1 

TF CHFCK THFN 
RFGIm 

GENf w ,",l,7); GEN INT fTYPETAB2TCUR TYPED; 
GEN TNTfTYPFTARsr CURT YPF3); GFN( W , % 1,7 )| 
GFNTNTfCAROCNT'i; 6CNf •»)«, i ,7 )1 

fmd; 

END ELSF PFGIN rRRnR(82); TNSYMBOL ENd; 
END FLSF BFGTN FPROofB); INSYMBOL FND; 
FNO El SF RFGTM FRRORM); INSYMROL FND** 
ENO ELSF ERR0R(9); 

gem( ♦•;*, ;i,7ji 

FND UNTIL CURSY^CDMMA? 

TF CllRSY/RPAR THFM RFfilN FRRORU*); SKTPfRPAR) END; 

tf cursyarpar thfn tnsymbol; 
fnd; 
tf chamgeltne thfn 

RFGTN 

GFNf"RLIMFf°»6.?>; GFNi;f w F w »FTLElD#5); GfN( 
GFNIDCV, FILET D,1); GFwf «,%1 ,7 ) ; 
ftFNIn<»I« # FlLFln,«i); GEwf")", 1,7); 

fnd; 

GFN("END ,, ,fl,5)| 

of pread; 



GEN( W # W ,1,7); 



,%i,7); 



PROCFOiiRE PWRITF(LTNFFEFD); 

valuf i tneffed; rohlfan ltnffepd; 
bfGim 

tnTfger filfIo»f»t,lastsy; 



50060000 
50061000 
50062000 
50063000 
50064000 
50065000 
50066000 
50067000 
50068000 
50069000 

50070000 

50071000 

50072000 

50073000 

50074000 

50075000 

50076000 

50077000 

50078000 

50079000 

50080000 

50081000 

50082000 

50083000 

50084000 

50085000 

50086000 

50087000 

50088000 

50089000 

50090000 

50091000 

50092000 

50093000 

50094000 

50095000 

50096000 

50097000 

50098000 

50099000 

50100000 

50101000 

50102000 

50103000 

50104000 

50105000 

50106000 
50107000 
50108000 
50109000 
50110000 

50111000 
50112000 
50113000 
50114000 

50115000 
50116000 



POINTER PI 50117000 

GFN.<" BEGIN»#7,2)J 50U8000 

TTI FPARAM(niiTPUTFTLF)l FIiFl » sFTLEN AMEJ 50119000 

TF TYPFTAB1 rCURTYPF*UFnRM»rTLES THEN ERR0RC855J 50120000 

IF SYMKlNDfCURSYl/TFRMTWAL THEN 50121000 

PFGIN 50122000 

TF CtlRSY NFS RPAR THFN 50123000 

n BEGIN. ... w 50124000 

WHTLF 0liRSY*C0MMA 00 ImSYMBOLJ 50125000 

IF CURSY»ALFACOKiST AND CURLENGTH>7 THFN 50126000 

BEGIN . _ ., 50127000 

GEN( M wALFAf%A,?)j c.FNID("F%FILFI0.5)J GENC "»", 1 ,7 )l 50128000 

AENIO?"V"»FTLFTn,S)J 6EN<% » , 1* 7 ) ; 50129000 

GENI0f"I'SFTLFin,OJ GEN(%»,1,7); 50130000 

Pt*STRlNRPNTJ 50131000 

FOR Ii«l STFP.7 IjwTli' 80 DO 50132000 

TF I$CURLFNRTH THFN 50133000 

REGlN 50134000 

IF AL60LCNK10 THFw WRITEALGOLJ 50135000 

REPt ACF ALGflLPNTtAi'GOLPNT BY """# PlP FOR 7, M " M , % M J 50136000 

ALGOLCNTIeAi GO! <"NT-10J 50137000 

FMD E| SF 6FNe"0, w ,"2,A)J 50138000 

GCNTMT(CURLFMRTHH nFN ( "# % 1 # 7 ) J 50139000 

GENlNTtCAROCNTW GFmC )", 1, 7 ) ) 50140000 

TNSYMROLI 50141000 

END OF ALFACONST Fl SE 50142000 

SERIN 50143000 

GFN(»PWR!TFf%7,nJ RFNIOC "F w , FlLFTO, 5 > J GFN<%", 1 , 7 ) J 50144000 

6ENI0("V»F?LFID*5>J GFN( ", «, 1 ,J ) } 50145000 

GEN!Of w I*,FTLFTn»S)J GEN<%", 1 , 7) J 50146000 

LASTSYtwCURSYJ 50147000 

FXPRFSSJONT ..FIbTYPFtABI tCURTYPFl.FORMJ 50148000 

RFN(",*%t,7)) __ 50149000 

TF F»MUMFRTC OR F«FL*ATING OR F«CHAR OR FwALFA OR 50150000 

CURTYPF«PnOLTYPF ^HEN 50151000 

RF6IN . .. 50152000 

IF F»NllMFRTr THEN GENINT(l) ELSF 50153000 

IF F«FL0ATTN6 THEN GENlNTf?) ELSF 50154000 

IF F-ALFA THEN RENINT(5) ELSF 50155000 

IF F»CHAR THEN RENINS) fLSf GE N INTC3)J 50156000 

GENf%", i,r,)l . „ 50157000 

IF fURSY-COLON THEw 50158000 

BEGIN 50159000 

iNSYMBfH) FXPRE^SIONJ 50160000 

IF TYPFTAB1 rri'lRTvPF3.F0RM NEq NUMERIC THFN ERR0RC17); 50161000 

GFN(%%1»7)J m 50162000 

IF cyRSY*fOLOM TuFN 50163000 

BFGIN „ 50164000 

IF F^FLOATTMG THEN ERR0RC4); 50165000 

INSYMBfHJ _FXPoFSSION| 50166000 

IF TYPFTAB1 rCUPTYPEl.FORM NFO NUMERIC THEN ERR0R(17)J 50167000 

.GENf%",l,7U 50168000 

END FLSF GFNf — l.",3,5)J 5016 9000 

ENO ELSE 50170000 

BEGIN ( 50171000 

TF F-FI.OATTNR THeN 6ENINT(16) ELSE 50172000 

IF F»AI FA ANn L A«TSY* ALF ACONST THEN GENINT( CURLENGTH ) ELSE50173000 



IF F-ALFA THpN 6ENINTC7) FLSE 50174000 

Tf F»CHAP THrN GENlNTCl) FLSE GENlNTdOil 50175000 

6FNC»,""i;»»,ft,i)| 50176000 

END* 50177000 

END E|SE WPfififATM 50178000 

GFNTNT<CARnCNT>) GEwf » )"# 1 , 7 ) I 50179000 

END OF FXPRESSTONj 50180000 

GENf"J",'l,7)J 50181000 

FND UNTIL CUPSYXrnMMA! 50182000 

TF CljRSY*RPAR THEN BFfilN FRR0R(46)J SKlPfRPAR) END* 50183000 

TF CURSYbRPAR THEN TNSYMctOLJ 50184000 

EN"* 50185000 

ftlenamfi-ftletd; 50186000 

TF LlNFFEEO THrN 50187000 

BFfilN 50188000 

INTEGER OllMMYJ 50189000 

GEN(«wLINF(%6,?)J GFNInCF", FILENAME, 5)i GEN( % w , 1 , 7 )| 50J90000 

GFNInC^V^FILENAMFfSU r_FN<% % 1 #7 ) J 50191000 

«ENinC w I w ';FILENAMF,5)T r.FNC " )", 1 ,7 ) J 50192000 

FNDJ 50193000 

r,FN( H EM0 M *4,*5)J 50194000 

FND OF PWRTTEJ 50195000 

50198000 

50197000 

PPOCFnilRE FiLEHANOLiNGfPROrMUM^I X*** FyLE HANDLING PROCEDURES! 50198000 

VAlUF PROCNUM) TNTFGFR PROCNUM" %*** 50199000 

BFGIN X*** i) PUT 50200000 

INTEGER FJ X*** 2) GET 50201000 

CASE PROCNUM OF X*** 3) RESET 5Q2Q2QQ0 

BEGIN I X*** 4) REWRITF 50203000 

GENC"PUT%3,5)J X*** 5) PAGE 50204000 

GEN(«GET H ? 3»5); X 50205000 

RFNC»RESFT%5#3)Ji X 50206000 

RFN( M REWRlTE ,t *7,15» X 50207000 

GEN<"PAGE M »«»4>; X 50208000 

FNO) X , 50209000 

GEN("(",1,7)J . FTLFPARAMCn)) X 50210000 

IF FILFNAMF.O THFN FRROP(7«5l X 50211000 

FinTYPFTABi rCUBTYPEI "FORM? 50212000 

TF F-FILFS AND PROCNUM** TuFN ERR0R(80)J 50213000 

GFNI0("F*,FtLENAMF,5>J 6Fwf%'M#7)J 50214000 

GFNTDC"V%FTLENAMF#5)J GEMf"*% I, 7 ) i 50215000 

GFNID("I%FTIENAMF,5)J GEMf *>"> 1# 7 ) J 50216000 

GFNlNTfCAROCNTJ) GFN( »>", ~,7 ) J 50217000 

IF PURSY/RPAR THFN REGTM e»R0R(46)I SKIP(RPAR) ^NOJ 50218000 

IF CURSY-RPAR THFN TNSYMBOi'j 50219000 

END OF FlLFHANOl INGI 50220000 

50221000 

50222000 

PROCEDURE PACK) 50223000 

BEGIN 50224000 

INTEGER IT*T* 50225000 

flFNC"PACK(»;5#3)l 50226000 

fNSyMghLJ 56227666 

TF CUR5Y-LPAR THFN 50228000 

BFGIN 50229000 

TNSYMBOLJ 50230000 



TF Cl.lRSY-TDENTIFTFR TMEN 50231000 

**<*!" 50232000 

STARCH) 50233000 

IF FOUND THFN 50234000 

BEftlN. .. ... , 50235000 

IF THTSlD.IOCl ASS.VAo THFN 50236000 

BEGIN 50237000 

T!»TYPFTABlfTHTSIDjTYPC3l 50238000 

IF T.FORMsARRAYS TuFN 50239000 

BFGTN . 50240000 

IT««T..INXTYPFJ 50241000 

IF TYPPTABifT,ARBTYPF3.F0RM^CHAR THFN ERR0RC«8)i* 50242000 

r,FNl0< M V",1000xTuTSLE!VEL + THlS!Nr>FX#5)J 50243000 

TF TH|$LEVEL>? AmD THISlEVEL*CURLEVEL , THFN ERR0RC5JJ 50244000 

firN(»,«,l,7il 0pNINT(TYPCTAR2CTHISID.TYPF3)j 50245000 

GFNC",",1,7)J GpNINT(TYPETAB3tTHlSlD.TYPF3)J 50246000 

END ELSE ERRORfft*): 50247000 

FNO El SF FRRORfB*!) 50248000 

END ELSF ERRDRfD* 50249000 

FND FLSE i3 FRR0R?9)J 50250000 

TNSYMBOLJ 50251000 

TF C(lRSY«rOMMA THFN 50252000 

BEGIN 50253000 

6EN(",",1,7) J 50254000 

INSYMBOl i EXPRFSSTONJ CHECKTYPESf IT* CURTYPE ) I • 50255000 

IF CURSY-CDMMA THFN 50256000 

BEGIN 50257000 

fiENC%",i,7iJ 50258000 

TNSYMROLJ 50259000 

TF CURSY-TOFNTIFTfR tHEN 50260000 

BEGIN 50261000 

SEARCHJ 50262000 

IF FOUND THFN 50263000 

BEGTN 50264000 

. TF THISTD. TDC1 AS*»VAR OR 50265000 

THTSTD.TOci AS«s»C0NST AND BOOLEANfTHl SID. FORMAL) THEN 50266000 

RFGIN 50267000 

VARIABLEJ .WRJtFEXPRJ 50268000 

IF CURTYPF>0 TmFN 50269000 

IF TYPFTABirCUoTYPEl.FORMXALFA THFN ERR0RM2); 50270000 

END ELSF FRROBteW 50271000 

end else frrorm); 50272000 

FND Fl SE ERRDRf9J? 50273000 

END ELSF BFGTn FRRdR(8q)J SKlPCRPAR) FnDJ 50274000 

FND FLSE REGIN FRR0R(*9>T SKIPCRPAR) END) 5o275o6o 

TF CllRSY^RPAR THFN RFGlN FRR0RC4A)) SKIPfRPAR) END) 50276000 

IF C|JRSY*RPAR THFN TNsYMqOLJ 50277000 

FND ELSE BFGIN FRRORfSlI IwSYMBOL END) 50278000 

GFNf %«,1,75J GFNlNTfOARDrNT); GENf ") % 1 ,7 > J 50279000 

PNO OF PACK) 50280000 

50281000 

50282000 

p,,0 CFDURE UNPACK! 50283000 

BFGIN 5 0284 000 

INTEGER IT»TJ 50285000 

6ENC"UNPACKf"#7»ni INSYMnOLJ 50286000 

TF CURSY-LPAR THFN 50287000 



RFGTN 50288000 

TUsJSYMROLI EXPRESSION) 30289000 

TF CllRTYPF>0 THFN IF TYPrT AR1 t CURTYPE] .FORM* ALF A THEN ERR0RM7)) 50290000 

TF CllRSY-rOMMA THFN 50291000 

RFGIn ,, 50292000 

GENf w ,%l,75) TNSYMBOi ) 50293000 

IF CURSYMOFNTIFIFR THrN 50294000 

BEGIN 50295000 

SEARCH) 50296000 

TF FOUND THFN 50297000 

REGIN , 50298000 

IF THI5I0.!0CLASS»WAR THEN 50299000 

BEGIN 50300000 

Tl»TYPFTABirTHlSTn.TYPE]| 50301000 

IF T>ORM. ARRAYS THFN 50302000 

RFGIN 50303000 

ITi-T^IuXTYpEJ , 50304000 

IF TYPFTARirT.ARRTYPE3.F0RM/CHAR THFN FRR0R(88>J 50305000 

IF THISLFVPI M AND THi$LEVEL*Cti*LEVEL THEN ERR0R(5j) 50306000 

GENin.( w V?»T0POiTHISUEVEl + THISIN0EX#5)l 50307000 

GEN( W * W *1»7T) GFNINT(TYPETAB?rTHlSlO.TYPE:1)i 50308000 

GFNf%",1 # 7l! GENlNT(TYPETAB3rTHlSI0. TYPE]); 50309000 

FND FLSF FRRn»(8«5) 50310000 

END ELSF FRR0R(A8>7 50311000 

FND El SE ERPORM!)! 50312000 

END EI.SF ERROR(O)) 50313000 

IN<5YMB0i ) 50314000 

IF CURSY-CHMMA THFN 50315000 

BEGIN „ _ . . 503J6000 

fiEN««,«,1,7j) 50317000 

TNSYMROU FXPRFSRIOm) CHECKTYPESf IT*CURTYPF)) 50318000 

END ELSF BFGTN FRRDPC8Q)) SKlP(RPAR) FND) 50319000 

FND FLSF REGTN FRR0Pf«9)7 SKIP(RPAR) END) 50320000 

TF CllRSY/RPAR THFN RFfilN FRR0R(B9)) SKTP(RPAR) ENO) 50321000 

TF ChRSYbRPAR THEN TNRYMnOLJ 50322000 

FNO ELSE BFGlN FRR0R(3)T IwSYMBOL FNO) 50323000 

GFNf»"#l»7W GFNTNTfCAROrNT)) GENC " )", 1 , 7 ) ) 50324000 

END OF UNPACKI 50325000 

50326000 

50327000 

PROCFOURE NEWDTSPJ %*** W NEW","DI SPOSF" 50328000 

BFGlN - 50329000 

TNTFGER Tl) 50330000 

TF CURNAME1«»"3000NFW" THEN GEN ( M NfW C% H, 4 ) ELSE 50331000 

RFGTN GFNf M nISP0SF w ,7,?'i j ftFNf "( '% 1 *7 ) END) 50332000 

TNSYMROL) 50333000 

TF eURSY»LPAR THFN 50334000 

RFGTN 50335000 

TNSYMROLI . 50336000 

TF CllRSYaTOENTTFTFR THEN 50337000 

RFGIN 50338000 

SEARCH) 50339000 

IF FfJUNH THFN 50340000 

BEGIN 50341000 

VARIABLE) 50342000 

TF CURTYPE>0 THFN IF TYPET AB1 t CURTYPE3 .FORMwPOlNTERS THEN 50343000 

RFGIN 50344000 



WRTTEEXPRJ GFNf M #«,l»7)J 

TlliTyPETABltCURTYPFliPOlNTTYPE; 
TH«TYPET*B1 tT11.St7EI 
IF T1M023 THFM ERpOR(86)J 
SFNTNTfT1)i 0FN<">> 1#7)J 
FND Ft SF FRRORffll It 
END FLSF BF6TN FRRDRO'iJ INSYMBOL END; 
FND ELSE FRRORf95J 
WHllF CURSY»COMMA DO 
BFGIM INSYMBOL! 

IF CURSY NF<3 IOfNTtFIER THEN ERR0Rf9)J 
IF rURSY NEQ RPAR tHFN INSYMBOL! 
FND) 
FND ELSE BFRIN FRR0Rf5MJ SKIPCRPAR) ENOJ 
TF CURSYfRPAR THFN RFGHi E»R0R(46)J SKIP(RPAR) ENDJ 
TF CURSY-RPAR THFN TNSYMBOl'j 
FMD OF NEWDISPJ 

x*xxfx*xxx**xxx*xx*xxxtxxx**xx**i!xxxxx*xxxxxxxxxxxxxxxxxxxxxxxx 
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PART 61 TuF STATFMENT PARSER, 



PROCEDURE STATEMENT) 



FORWAoOJ 



PROCFHURE ASSIGNMENT; 
BFGIN 

INTEGER' LEFTTYPFI 
LAREL ASSIGN»EXTT) 
TF FOUND THFN 
RFGIN 

TF THISinJlOCLASS-VAR OR 

THISIn.lOrLASS«CON«5T aNO BOOlF AN (THISIO .FORM AL 3 THEN 
RFGIM 

VARIABLFJ LFFTTYpFJ-CnRTYPEJ 
ASSIRNI IF CURSY^ASSTGNSY THEN 

BEGIN FRR0Rf?8)J SKlPr ASSIGNSY ) i 

TF SYMKTNnfCURSYl-TERMlNAL THFN GO TO EXTTJ 
ENDJ 

INSYMBOI I 

IF TYPFTAB1 f LFFTTYPF];*TRUCT>0 THEN 
BEGIN 

FRR0R(95)J 
ENO ELSF 
BEGIN 

WRITEFXPRJ GFNf , :" M '.*?»6)l 

TF CHFCKOPTTON ANn TvPETAB 1 CLEFTTYPF 3 .FORM1CHAR THEN 

rHECKFXPRfTYPFTAR?CLpFTTYPEl,TYPFTAB3tUEFTTYPF3 3 ELSE 

FXPRFSSIONJ 

WRITFFXPRj 



50345000 

50346000 

50347000 

50348000 

50349000 

50350000 

50351000 

50352000 

50353000 

50354000 

50355000 

50356000 

50357000 

50358000 

50359000 

50360000 

50361000 

XXXXXXXXX60001000 

X60002000 

X60003000 

X60004000 

X60005000 

X60006000 

X60007000 

X60008000 

X60009000 

XXXXXXXXX60010000 

60011000 

60012000 

60013000 

60014000 

60015000 

60016000 

60017000 

60018000 

60019000 

60050000 

60051000 

60052000 

60053000 

60054000 

60055000 

60056000 

60057000 

60058000 

60059000 

60060000 

60061000 

60062000 

6006 3000 

60080000 
60081000 

60082000 
60083000 
60084000 
60085000 
60086000 



CHECKTYPPSf LFFTTVPF#rl)RTYPE)J 60087000 

END* 60088000 

FND FLSE 60089000 

REGIN % FUNCTION ASStSNmFNT. 60090000 

IF THTS| F.VFLJTDRLFVPL-i' OR TH!SINDEX*eUREUNC THFN FRR0RC5)* 6009100O 

GEWlOfVfiOOOxTHTSi EVrl+THISlNDEX#5 ) I LEFTTYPF I-THISID. TYPEJ 60092000 

iNSYMBOl) 60 Tn ASRIGmJ 60093000 

FNO; 60094000 

FNn ELSE 60095000 

RFGTN 60096000 

SKlPf ASSTftNSY) i 60097000 

TF CDRSysASSTRNSy THFm Gn TO ASSIGN) 60098000 

FNOI 60099000 

FXlTl 60100000 

fMD OF ASSTGNMFWTJ 60101000 

60102000 

6010 3000 

PPOCFOURE OOMPSTATJ 60104000 

BFGIW 60105000 

TNTFGER RCGTNNHMJ 60106000 

tARFL STATM) 60107000 

60108000 

RFGTNNtlMt«Nl|M8FGTNSt«NllMBFftTNS+D MARGINf 8"# 8EGTNNIJM ) ; 60109000 

OFNf "BFGIN",6*3) J 60110000 

ho begin 60111000 

IF CURSY«SFMICOLON nR rlJRSY»BEGlNSY THFN INSYMBOLJ 60112000 

STATMI STATEMFNTJ 60113000 

GE*i("J"'.l#7) j 60114000 

IF CURSY-ELSFSY THFM BrfilN ERROR(?0)J TNSYMBOL* GO STATM END) 60115000 

IF SYMKTNorCURSYlwTMlTTAL THEN BEGIN FRR0RC2DJ GO STATM END* 60116000 

FND UNTIL CliRSY^SFMTCOl nN; 60117000 

TF CURSY/ENnSY THFN 60118000 

RFfiTN FRR0Rf24)l SKlPfFND«Y)J 60119000 

TF CURSYyFNnSY THFN pFGIN INSYMBOLJ fiO TO STATM FNDJ 60120000 

FNDJ 60121000 

GFNC H FN0 W »*#4)J MARGTMf" F" #BEGINNUM ) J 60122000 

TN5YMB0U 60123000 

FND OF COMPSTATJ 60124000 

60125000 

60126000 

PROCFOURE TFSTATJ 60127000 

BFGlN 60128000 

LABFL FXITJ 60129000 

GFN( W IF",3»6)J 60130000 

fNSYMBOU BOOLFxPRi 60131000 

TF CURSY^THFNSY THFN 60132000 

BFGIN TF CURTYPF>0 THFN ERoOR(27)J 60133000 

SKlPf THENSY>j 60134000 

TF CUPSYyTHFNSY THEN. 60135000 

BFGIN IF ClJRTYPF»n TuFN ERR0R(27)| 60136000 

IF SYMKTNOrrUR^YlaTERMlNAL THFN GO TO FXITJ 60137000 

FNOJ FNOI 60138000 

GFNC" THEN M .6»D? 60139000 

TNSYMBnLi STATEMENT! 60140000 

TF CURSY-ELSESY THFN 6Q141000 

RFGIN GEN(" ELSF w ji6,3V» IN^YMBOLJ STATEMENT END) 60142000 

EXlTt 60143000 



FND df ifstatj 



PpOCFDIIRE fASESTATj 
BFGlN 

DEFINE CASFHASH(N5-fN)*r38i391 MOO MAXCASFS#J 

TNTFGCR ARRAY C ASFTABTOt MAyCASES 3j 

TNTFGFR C A5FNUM,C ASFTYPF,Nr ASELAB3* TEMP VARNUM, CON V AL #C0NTYPE#C, TJ 

RnnLEAN ZFROLAR.FTRSTi 



THF 
THF 



CA5FNUMl-NUMCA5FSl«NUMr 
TFMPVARNI)M|«.NUMTFMPS1«»N 
TF TEMPVARNhM>MAXTFMPS 

<?FNC W BF0IN«,6,3)' GENT 
tnsymbolj FXPRFSSIONJ 
fiFNf w J"#l#7)J CASETYpF 
TF TYPFTAB1 fCASETYPFl.F 
RFGIN FRR0RC17); CASETY 
IF CURSY^OFSY THFN 
BE«IN IE CASETYPF>0 
SKIPfHFSYJJ 
TF CURSY«OFSY 
TF CASETYPFsO 
END ELSE INSYMROU 
rin BEGTN 

WHILF CURSY*SFMTCOLON 

FIRSTI«TRUEJ 

TF CtlRSY*FNDSY THFN 

RFGIM 

GENC W IF"»3,6)J 
00 BEGIN 

IF FIRST THFN FTRST 
nONSTANTfCONVAL»C 
TF COmTYpF>0 THFN 
RFGIN 

IF TASETYPEwO T 
CHECKTYPFSfCASF 
GENTO(»T w #TFMPV 
NCASELABSl»NCAS 
IF MCASFLABS<MA 
BEGIN 

IF CONVAL»0 T 
IF ZFROl AR 

rfgin 

Tt*CASEHASH 
FOR Cl«CASF 
Tl«TF T«0 T 
IF C*0 THFN 
EnDJ 
END ELSE TF NCA 
IF CURSY-nOMMA 
FNOI 

end unttl cursyfcom 
gen( m then"* 6," 3)1 
if cursy'colon then 
if cursy-colon thfn 
statemfnt; 



ASEn + lJ MARGINCCB M »CASENUM)| 
IIMTfMPS+D 
THEm ERR0R(16); 
n( w T"»TEMPVARNUM,?)J GENC "l«",?,6 ) J 

t»Ci'iRTYPEJ 
0RM>FL0ATlNfi THEN 

pei»o end; 



THFN EpR0RU8)J 



N IwSYMBOL ELSE 
M EoROR(lS)) 



DO TNSYMBOLI 



t*F*LSE ELSE INSYMBOL* 
DNTvPEJI 



HEN CASETYPF««CONTYPE ELSE 

TYPr#CONTYPE)l 

ARNmM>2)J 8CNC»»»#i#7>l GFNlNTC C0NVAL5J 

FLAoS + U 

YCA^FS THEN 

HEN 

THEm ERR0R(31) ELSF ZEROLAB t«TRuE ELSE 

fCOMVADI 

TABrTl WHILE C*CONVAL AND CXO DO 
HEN MAXCASFS ELSE T-ll 
ERoORni) ELSE C ASETABE T3 I *CONVAL J 

RELaRS«MAXCASES THFN ERR0R(30)J 
THEM GEN( W 0R%4#5)J 



MA) 



BEftTN ERR0R(26)J SKlP(COLON) END) 
INsYMBOL* 



60144000 

60145000 
60146000 
60147000 
601*8000 
60149000 
60150000 
60151000 
60152000 
60153000 
60154000 
60155000 
60156000 
60157000 
60158000 
60159000 
60160000 
60161000 
60162000 
60163000 
60164000 
60165000 
60166000 
60167000 
60168000 
60169000 
60170000 
60171000 
60172000 
60173000 
60174000 
60175000 
60176000 
60177000 
60178000 
60179000 
60180000 
60181000 
60182000 
60183000 
60164000 
60185000 
60186000 
60187000 
60188000 
60189000 
60190000 
60191000 
60192000 
60193000 
60194000 
60195000 
60196000 
60197000 
60198000 
60199000 
60200000 



IF CURSY/SFMTCOlON AND CURSY*FNDSY THFN 60201000 

. BEGIN FpR0Rf21>> SKTP(«?FMIC0L0N) END; 60202000 

FND) 60203000 

TF C1IRSY«SCMTC0| ON THFN r.FNf" ELSE%6,3)) 60204000 

FN" UNTIL ruRSY^SFMTCOiriN) 60205000 

TF CURSY*ENnSY THFN BFfiTN fRR0R<24)) SKIP(ENOSY) END) 60206000 

fiFNf FND W #^#«H MAR6TMeVF%CASFNUM)) 60207000 

NUMTEMpSi»NHMTFMPS*1 ) 60208000 

TNSYMBOL) 60209000 

END OF CASFSTATJ 60210000 

602U000 

60212000 

PROCFDiiRE WHILFSTAT) 60213000 

8F6IN 60214000 

LABFL STATM,;EXTT) 60215000 

GFNf"WHILE"»6, 3)^ 60216000 

TMSYMBnUI. ROOLE*PR) 60217000 

TF CURSY^DOSY THFN 6Q218000 

PF6IN TF CURTYPF>0 THFN ERoORM9)) 60219000 

SKIP(nOSY); 60220000 

TF CURSYXonSY THFN , 60221000 

RFGIN IF CURTYPF*n TmFN ERR0RC19)) 60222000 

GO TO TF SYMKlMDtcURSYlBlNITlAL THEN STATM ELSE EXIT) 60223000 

FND) FND) 60224000 

GFN(" 00"#4»5)l 60225000 

. TNSYMBOL) 60226000 

STATMl STATFMENTI 60227000 

FxlTt 60228000 

FND OF WHILFSTATJ 60229000 

60230000 
60231000 

procedure repeatstat) 60232000 

BFGIM 60233000 

TNTFGER REPNUM) 60234000 

IAREL NEWTRY) 60235000 

60236000 

RTPNUMJ»NUMREPSl*NUMRFPS*l7 60237000 

MARGlNf R",REPNUM5; 60238000 

0FN( M D0 M *3*65) GFNf ,, RFr,IN",6#3)J 60239000 

00 BEGTN 60240000 

INSYMBOl ) 60241000 

NFWTRYt STATEMENT) 60242000 

QCN("l»»';i,7)J 60243000 

IF CURSY-ELSFSY THFM BpGTN ERR0RC20 ) MNSYMBOD GO NEWTRY END) 60244000 

IF SYMKTNOrcURSYlwTNlTT AL THEN BEGIN FRR0R(?1)) GO NEWTRY FND) 60245000 

FNO UNTIL CllRSY^SFMTCni ONI 60246000 

TF CURSY/UNTILSY THfN 60247000 

RFGTN 60248000 

FRR0Rf225) 60249000 

WHILF CURSY/tlNTTLSY AND «YMKINDCCURSy] /INITIAL 00 60250000 

bfgin insymbol; skipm'inttlsy) end; 60251000 

TF CIIRSY/HNTIlSY THFN GO TO NEWTRY) 60252000 

FNO) 60253000 

GFN<" FN0%5*4)) GPN f "uNT TL"» 6, 3 ) I MARGIN( W U M #REpNuM)) 60254000 

INSYMBOL) bOOLFVPR) 60255000 

FNO OF REPFATSTAT) 60256000 

60257000 



60258000 

PROCEDURE FORSTaT; 60259000 

bfgim 60260000 

tntfger vartypf,vapnum»i'ltm.ullm; 60261000 

BOOLEAN OOWNl 60262000 

I ABEL 5TATM) 60263000 

60264000 

6FN( W BF6IN%6,3)J 60265000 

INSYMBOLi 60266000 

TF eURSY-lOFNTTFIFR THFM 60267000 

BEGIN 60268000 

SEARCH; 60269000 

IF FOUND THFN 60270000 

BFGIN , 60271000 

VARNUMI.IOOOxTHTSLFV/FLj-THISINDFXJ 60272000 

IF THISTD, IOCLASS-VAR nR 60273000 

THIST0.TOCLASS*rnNST AND BOOLE AN( THT SlD. FORMAL ) THEN 60274000 

BEGIN . _ 60275000 

TF THTSLFVFL>1 Awn TuTSLEVEL<CURLEVFL THEN ERR0Rf5); 60276000 

TF THTSLFVFL>CURt FVFi" THEN ERR0R(83)J 60277000 

VARTYPEt»THTSTD.TYPE7 60278000 

TF TYPETABirVARTYPE3 fc F0RM*CHAR THEN 60279000 

BEGIN 60280000 

LLIMl»TYPFTAB2r\/ARTYPE5i UL IM lwTYPETAB3tVARTYPEl ; 60281000 

FNO Ft SE BFGTN ERR0RM2JI VARTYPEl-0 END; 60282000 

END ELSF ERROR?*)! 60283000 

FND ELSE FRRORUJJ 60284000 

FNin ELSE ERB0R(9)J 60285000 

TNSYMBnL; 60286000 

TF CURSY^ASSISNSY THFN 60287000 

BFGTN FRR0Rf28)| 60288000 

SKIP? ASSTSNSYV 60289000 

TF CURSY-ASSTGNSY THpN INSYMROL ELSF 60290000 

TF SYMKlNDtCURSYlilNTTIAL THEN GO TO STATM; 60291000 

FNn ELSE TNSYMBOLI 60292000 

GENTDCVfVARNUMtS)! GFNC »♦% 1 , 7 ) J 60293000 

TF CHECKOPTTON THFN CHFfKFvPR t LLIM, ULIM ) FLSE EXPRESSION; 60294000 

WRTTEEYPR; 60295000 

GFNe w ; w >i#7li 60296000 

TF VARTYPE«0 THFN V ARTYPF I iciJRTYPE ELSE CHECKTYPESf VARTYPE>CURTYPE ); 60297000 

MUMTEMPSlwNilMTFMPS+i; TF mUMTEMPS>MAXTFMPS THEN ERR0RM6); 60298000 

TF CURSY»TOSY THFN TNSYMROi' ELSE 60299000 

TF eUR5Y«D0wNT0SY THFN P.EGTN D0WNl«TRUE; TNSYMBOL FND FLSE 60300000 

BFGTN TF CURTYPE>0 THEN ER«»0Re23)> 60301000 

SKiPfTOSYJ; 60302000 

TF CURSy-TOSy THFN IwSyMBOL ELSE 60303000 

RFGlN IF CURTYPF»0 TuFN ERROR ( 23) ; 60304000 

IF SYMKTNnrrUR«Y]plNlTTAL THFN GO TO STaTm; 60305000 

FNO; FNO; 60306000 

GENID(«T M #N|!MTFMPS#?); GEMf"*"# 1 » 7 >; 60307000 

TF CHECKOPTTON THFN CHFf KEvPRCLLlM, ULIM) FLSE EXPRESSION; 60308000 

WRTTEEXPR; 60309000 

GEN( n ; w /l#7); 60310000 

jF VARTYPE«0 ThFN VARTYPEIbCURTYPF ELSE CHfCKTYPESevARTYPE#CURTYPE);603il000 

TF CURSY^DOSY THFN 60312000 

BFGIN TF CURTYPF>0 THFN ER©0R(l9>; 60313000 

SK!P(nOSY)J 60314000 



m 



TF CUPSY.OOSY THFM IwSYMBOL else 
TF CURTYPE«0 THFN ERbORM9); 

FMD ELSE INSYMROL.; 

RrNCTOR", 4,3)1 GFNTDf "V"'." VARNUM, 5 ) ) 6FN r M *% 1 » 7 ) I 

fiFNTD(' M V w #VARNUM*5)l r,PN(« %1 # 7 ) ; 

TF DOWN THFM GFN( "OOWNTO", 7, 2) ELSF GEN( "UPTO", 5» 4) I 

GFNlOC"T%Nl'lMTFMPS,?)l GEMf" D0%4,5); 
STATMl STATEMENT) 

GFN(" FND"#'S»4>) 

NUMtEMPSJ»NhMTFMPS*1 J 
FMD OF FORSTATJ 



ppocfdupe gotostat; 

BFGIM 

integer i; 

tnsymbdlj 

if CURSY-INTCONST THFN 
RFGTN TI-NUMLAPSJ 

WHILP I>! AMD LAPTABrfULABvAL/CURVAL 00 Il«I-U 

TF I»0 THFN FRR0RM5>J 

GEN ("CO", 3,6); GFNInfl w #CURVAL*4)J 

TNSYMROLI 
FMD ELSE ERROR(IO); 
FMD DF GOTDSTATI 



PROCFDURE WITHSTATJ 
BFGIn 

T 

R 

5 
n 



ntfge 

IFAL D 

5TARTL 

ID REG 

TNSY 

TF C 

REGI 

SE 

IF 

BE 



R STARTLEVFL»VERYF!R«TWITHSYM#U 

J 



v/ERvFIRSTWlTHSYM««NWITHSYMS) 



FVEL*aTOPLFVEI I 

TN 

MBOU 

URSYaTDEMTlFlFR TWEN 

N 

ARCH; 

FOUND THFN 
GIN 

TF THTSlDlTDCL ASSiiVAs THEN 
RFGIN 

VARTA8LEI 

IF CURTYPF>0 THFN 

IF TYPETABirCURTYPrl.FORM^RECORO THEN ERR0R(98); 

IF SIMPLEVARIARIE THEN 

BEGTN PUTSYM("r")J T NSIDEBRACKFTS I *TRUE END; 

IF TOPlEVFL«MAV| EVc-L THEN 

BEGTN 

TljPLFVFLl-TOPl EVpL+U 

d.namftar»ptypet4btrcurtype3.rfcta8; 
dJrectypfi-curtyoe; 
d.numpntrsinwtth'i-numpo inters; 

DjFIRSTWITHSYMliiwWITHSYMS; 

D,8RACKFtslNWTTH*,»RFAl(INSIDEBRArKETS); 

TF NWITHSYMS+MUM«YMS>MAYWITHSYMS THEN ERR0R(63) ELSE 

FDR Il«t STEP 1 nNTIL NUHSYMS DO 

RFGIN 



60315000 
60316000 
60317000 
60318000 
60319000 
60320000 
60321000 
60322000 
60323000 
60324000 
60325000 
60326000 
60327000 
60328000 
60329000 
60330000 
60331000 
60332000 
60333000 
60334000 
60335000 
60336000 
60337000 
60338000 
60339000 
60340000 
60341000 
60342000 
60343000 
60344000 

60345000 
60346000 
603470D0 
60348000 
60349000 
60350000 
60351000 
60352000 
60353000 
60354000 
60355000 
60356000 
60357000 
60358000 
60359000 
60360000 
60361000 
60362000 
60363000 
60364000 
60365000 
60366000 

60367000 
60368000 
60369000 
60370000 
60371000 



end 



W!THTABrNWfTH5vMS3l«SYMTABrnj 
NWTTHSYMSl*wWlTHSYMS+ll 
FwDI 

nlLASTWTTHSYM{*NwTTHSYMS-lJ 
OTSPLAYrTnPLFVELll«DJ 
END ELSE FRR0Rf*4)7 
FND Fl St BFOlM FRROR*fl)J INSYMBOL FNOJ 
ENn ELSE BFGTN FRRDRU'w INSYMBOL ENDJ 
FNO FLSF bEGTni FRRORfoH TNSYMBOL END; 
NUMSYMSl*OJ 
NUMPOINTFRS l« 01 
FNf> UNTIL CllRSY^COMMAJ 
TF CURSY*DOSY THFN 
RFRIN FRR0RM9); SKlPrnOSv)J 

TF CURSY-DOSY THFM ImSYMBOLJ 
FND ELSE INSYMBOL J 
5TATEMFNT! 

TOPLEVFL««STARTLFVFL) mWItHSYMS I«VERYFIRSTWITHSYM; 
HF WITHSTATJ 



PROCFnilRE STATEMENT* 
BFGIm 

TMTFGFR I) 

I ARFL LABFOllNDj 



% *** LABELED STATEMENT *** 



TF CURSYMNTCONST THFN 

BFGTN 

FOR TI*FTRSTL,AB STEP T UmTIL numlabs do 
TF LABTABrIJ.LABVAL*CllRV«L THEN 
BFGIN IF I A8TABrinLARDEr«l THEN ERRORODI 
LABTABrn!!LABDFFla7j 

GO TO labfdund; 

FNOJ 

FRROR(155! 
LABFOLINDI GFNIDf M L ,, #CURVAL,d)i GENC w t w M,7)J 
TNSYMBOLI 

TF CltRSY*oOLON THFN 
RFGIN ERRnR(?6)i 

$ktp(cr)lon)ji tf cnrsyacolon then tnsymboli 
fnd flse tnsymbdl; 

FNDI 

COMMENT *** START OF STATEmFNT *** J 

TF CURSY«InFNTTFlFR THFM 
RFRIN 

SEAR 

TF FOUND THEN 

REGI 
IF 



IF 
BE 



CHI 

OUNO 

M 
THIS 

THISI 
THIS 
THIS 

GIN 

TF TH 

BEGIN 



TDtinCLASS*VAR nR 
r>tIDCLASS*COwST AND BOOLEANf THI SID .FORMAL > 
TO f TDCLASSpFHNC THEN ASSIGNMENT ELSE 
TOilDCLASSBpROC THEN 



OR 



TSLFVFL«0 THFN 



% *** INTRINSIC PROCEDURE *** 



60372000 

60373000 

60374000 

60375000 

60376000 

60377000 

60378000 

60379000 

60380000 

60381000 

60382000 

60383000 

60384000 

60385000 

60386000 

60387000 

60388000 

60389000 

60390000 

60391000 

60392000 

60393000 

60394000 

60395000 

60396000 

60397000 

60398000 

60399000 

60400000 

60401000 

60402000 

60403000 

60404000 

60405000 

60406000 

60407000 

60408000 

60409000 

60410000 

60411000 

60412000 

60413000 

60414000 

60415000 

60416000 

60417000 

60418000 

60419000 

60420000 

60421000 

60422000 

60423000 

60424000 

60425000 

60426000 

60427000 

60428000 



IF TURN 

IF CURN 

pURN 

TF PURN 

TF CURN 
IF PURN 
IF PURN 
IF PURN 
IF CURN 
IF pURN 

CURN 
IF PURN 
IF PURN 

PURN 
IF PURN 
IF PURN 
END FJ SE 

writffxpr 

end flsf rf 

fnd flsf regt 

fnd of tdentift 

TF CURSY«8FfilNS 
TF CURSY*IFSY 
TF CURSY»CA5FSY 
TF CURSY»WHTLFS 
TF CURSYbRFPEAT 
TF CURSY«FnRSY 
TF CURSY*WTTHSY 
TF PUR3Y«GQTOSY 
IF SYMKINDtPURS 

rfgin frrop{13) 
of statement; 



AMF1»"50 

AME1* M 7W 
AMFJ>«"00 
AMF1."40 
AMF1« W AR 
AMFJa^AO 
AMFt« n 30 
AMF!*"30 

AMFli"50 

AMF1«"7R 

AMF?« M 00 

AMF1»"30 

AMFi»"7n 

AMF?«"00 

AMF1« W 40 

AMF1«"6II 

PASSPARA 

) 

GIN FRRO 

N FRRORr 



WRltF" 

RlTpL M 
DOOnN» f 

oREad m 
fadj'n w 

P-PAftF* 
O06rT° 
POP.'.T M 
RESrT M 
fWRtT" 
nOOnF" 
OONrW" 

TSPrtS" 
OOOnF" 
0PArK H 
NPA?K W 
MS) 



THEN 

AND 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

AND 

THEN 

THEN 

AND 

THEN 

THEN 

THEN 



PWRITE(FAUSE) 

PWRITF(TRUF) 

PREAD(FALSE) 

PREADCTRUE) 

FILFHANDLIN6(5) 

FILFHANDLIN6(2) 

FlLFHANDLlNGCi) 

FlLFHANfltlNG(3) 

FlLFHAN0LlNG<4) 
NEWDISP 

NEWOISP 

PACK 

UNPACK 



R(l*i) SKIP 
?)) ASSIGNM 



(99) END) 
ENT END) 



FR FLSF 

Y THFN POMPSTAT FLSE 
THFN TFSTAT ELSE 
TyEN PASrSTAT ELSE 

Y THFN wHli'FSTAT ELSE 

sy thfn pepratstat else 

then format flse 

then wiTuSTat flse 

THEN ftOTnSTAT ELSE 
Y^TFRMTNAL THEN 
) INSYMRDLi SKIPCSFMICOLON) END) 



PART 7« TvPE DECLARATIONS. 



EN 

x*xx*x*xxx*xxxxtxxTx*xx*xx**xx*xxxxxxxxxxxxxxxtxxx%xxxx*xxxxxx 

X 

X 

% 

X 

X 
X 

X 

x*xx*xxxxx*xxxx*xxxxxxx*xx**xx*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



RFAL VALXl.VALY?; 
TNTEGFR TYPEXl* TYPFV?) 
BOOlFAN PACKED) 

PROCFOUrE FIELD! 1ST f RFCTAR.FI R^TADDR* LAST ADDR J J 
VALUE RFCTAB.FIgSTAOORJ 

Integer REpTAB»FiRSTADnR,LA*TA*oR) 

FORWARD) 



DFPiNF SUBRANGFp 
BFGTN 

pONSTANT(VALVt#TYPFyi )) 

TF TYPFTABl"rTYPFXn.FOPM>CuAR THEN ERROR(11)J 



X*** SUBRANGE DFCLARAT 
X********************* 



ELSE 60429000 

60430000 
ELSE 60431000 

ELSE 60432000 

ELSE 60433000 

ELSE 60434000 

ELSE 60435000 

ELSE 60436000 

ELSE 60437000 

60438000 
ELSE 60439000 

ELSE 60440000 

60441000 
ELSE 60442000 

ELSE 60443000 

ELSE ERRORfO)* 60444000 

60445000 
60446000 
60447000 
60448000 
60449000 
60450000 
60451000 
60452000 
60453000 
60454000 
60455000 
60456000 
60457000 
60458000 
60459000 
60460000 
XXXX-KXXXXX70001000 
X70002000 
%70003000 
X70004000 
X70005000 
X70006000 
X70007000 
X70008000 

X70009000 
XXXXXXXXXX70010000 
700U000 
70012000 
70013000 
70014000 
70015000 
70016000 
70017000 
70018000 
70019000 

70020000 

70021000 

ION *** 70022000 

******* 70023000 

70024000 
70025000 



TF CURSY*OntlBLFnOT THFN ER»0R(53)J 

JNSYMBnLI 

OQNSTANTfVAl X2*TYPEX2)J 

TF TYPFX1>0 AND TYPFX?>n TuPN 

TF TYPEXlrfTYPFX? THFN EReORflD ELSE 

TF VALX1>VALX2 THFN FRROpI^)* 
T1 l»TYPETAB?tTYPFxn.FOPMJ IF TWSYMBOLIC THFN TltaSUBTYPE) 
NFWTYPFT TTYPFHTYPETNnEXj 

fTtslZFl-TSTZPt.i J T1 IsTRuCTI*0J Tl .MATNTYPE I ■TYPFXl J 
TYPFTABltTYPElNOFXll-Tl i 

TYPFTAR?tTYPFINnFX3l«VAI XlT TYPETAB3 £ TYPFTNDFX] I «VALX?; 
FnD DF SUBRANGFfJ 



PROCFHIIRE TYPEOFCL(TTYPF#TStZF^J 

TMTFfiFR TTyPF#TSIZf; 

BFQIN . „ , „ 

PRflCEOURE TYPERR(FRRNUM.TTvPE*TSIZE)J 

value frrnumj 

tntfger errnum,ttypf#tstZf7 

rfcin frrorf errnum5j 

TTYPFfTSTZFI-O; 
FNOJ 

TNTFGER RECTNx* ARRSTRUCT*Tv*SX*T 1 ,T2#T3,T,N J 
BOOLEAN FIRST! 



%*** STMPtE TYPF DFCLARAT 



PAf!KED!«FALSEJ 

IF CURSY*IOFNTTFTFP THFM 

RFfiTN 

SEARCH) 

TF FOUND THEN 

RFGIM 

IF THISTD.TOCLASS-TVPF* THEN 
BEGIN 

TTYPFt*THTST0lTYPP; TS IZE I -TYPET AB1 r TTYPE3 . S TZE I 
INSYMpOLJ 
ENH FLSF IF THTST0lT0Ci'ASS»C0NST THEN SUBRANGE 

ELSF TYPFRR(7,TTYPE»TSIZ 
FND FLSF BEGIN TYPERRM » tTYPE* TSIZE )> INSYMBOL ENO* 
FNn ELSE 

TF CURSY<CHARCONST nR CiiRSVwPLUS OR CURSYbMINUS THFN SUBRANGE 
TF CURSY«LPAR THFN 
RFGIN 
Nl*0? 

NEWTYPE; TSlTOCLASSlicOwSTJ T3 iTYPE I *TYPEINDEX; 
00 BFGIN 
INSYMBOl i 

IF CURSY-IOFNTIFIFR THrN 
BEGIN 

NFWNAME(njRNAMFi»CURMAME2#CURLEVFL)J 
T3llNFOl8N; NAMFTAB^rCURLEVFL*THlSTNDEX]l»T3; 
WlsN + 11 TNSYMBOl 7 
ENO ELSF ERR0R(9)) 

FNO UNTIL CURSY*COMMAJ 

TF CURSY/RPaP THFN RFfilN FRR0RC46JJ SKIPTRPaR) ENnJ 

fTt«SYMBoi'ici ti Istrhct". -OJ 



70026000 
70027000 
70028000 
70029000 
70030000 
70031000 
70032000 
70033000 
70034000 
70033000 
70036000 
70037000 
70038000 
70039000 
70040000 
70041000 
70042000 
70043000 
70044000 
70045000 
70046000 
70047000 

70048000 
70049000 
70050000 
70051000 
70052000 
70080000 
ION ***70081000 
*******70082000 
70083000 
70084000 
70085000 
70086000 
70087000 
70088000 
70089000 
70090000 
E); 70091000 
70092000 
70093000 
ELSE 70094000 
70095000 
70096000 
70097000 
70098000 
70099000 
70100000 
70101000 
70102000 
70103000 
70104000 
70105000 
70106000 
70107000 
70108000 
70109000 



T1.STZEI*TSI7FI*1 ) TTYPfI "TYPE INDEX) 

TYPETABHTYPETNDEXl tfTl) 

TYPETAB2tTYPETN0Fv1l«o) TYPETAB3C TYPE INDEX] I »NM i 

TF CtlRSY*RPAR THEM TNsYMnOL) 

FNH ELSE 



TF CURSY 

RFfiTN 

TNSYMp, 

TF CUR 

BFGIW 

NEWT 

Tils 

TYPE 

SEAR 

IF F 

BE5I 
TF 

TY 

IY 

ENn 

BEG I 

TF 

PN 

PN 

END) 

INSY 

FND FL 

FKjri OF P 

RFftTN , 

Tp CUR 



•ARROW THEN 

OL) 

SY-TDENTIFIFR TmEN 



X*** POINTER DECLARATION *** 



TTYPF|«TYPEImDEXJ TI l"PO INTERS j 
'5T7FUM) Tl STRUCTtwOi 
•YPFTNOFX] l»TTl 

'HFN 

:d"idci. ASS.TYpFS then 

,CTYPETNnFy3.POlNTTYPpi*THI Sin. TYPE ELSE 
•#TTYPF#TSTZEn) 

!TRS<MAXPNTRS THEN NUMPNTRSls»NUMPNTRS*l ELSE ERRORC52 
rNUMPMTRST l«rllRNAMEl ) PNTRT AB2 [NUMPNTRS1 I-CURNAME2) 
irNIUMPMTRM IWtYPFTNDFYI 



MBOl ) 

SE TYPFRR{9,TTYpE#tSIZE)) 

OINTER DFCLARATTON FLSE 

SY-PACKEDSY ThFM BpqIN PACKED »»TRUF J INSYMBOL FND; 



TF CURSYaAR 
BFGIK) 

INSYMBOI ) 

IF CURSY* 

TtmOt Fl 

DO BEGIN 

TF FIRS 

TYPEHFC 

TF TX>0 

BEGIN 

IF TY 

Ti l«A 

T?t*T 

IF T3 

Tllsl 
NEWTY 

typft 

TYPFT 

f l«TY 
FNDI 
ENn UNTIL 
IF CURSY* 
IF CURSY* 
INSYMBOL) 
TYPEOECL'C 



RAYSY THFN 



%*** ARRAY DECLARATION *** 



LBRACKFT THEN FRR0RU7) ELSE INSYMBOLI 
RSTHTRUE) 



T THFN FTRSTI S FALSE 
LfTX»SV)J 
THFN 



ELSE insymbol; 



PFTABirTX1*FOoM>CHAR THEN ERR0RU8)) 

rrays) ti .invtypei«tx; tuarrtypei-t) 

YPFTABJfTyli T3t*TYpETAB3tTXl) 
•T2>10?2 THEN FRR0RC61); 
ZEi»MTNMO?3 j1 t3-T2 + 1); 

Rfi" 

ABHTYPETNnEXliaTi; 

AB?rTYPETNnEXll-T2i TYPETAB3 fTYPE INDEX 3 1pT3) 

PFTNOFY) 

CURSY*COMMA) 
RBRACKFT THEN FRR0R<59) ELSE INSYMBOL) 
OFSY THEN REGtN ERRQRMS)) SKTP(OFSY) FND) 

TX#SX)) 



701 
701 
701 

701 
701 
701 
701 
701 

701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
>)701 
701 
701 
701 
701 
701 

701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 
701 



10000 
11000 
12000 
13000 
14000 
13000 
16000 
17000 
18000 
19000 
20000 
21000 
22000 
23000 
24000 
25000 
26000 
27000 
28000 
29000 
30000 
31000 
32000 
33000 
34000 
35000 
36000 
37000 
38000 
39000 
40000 
41000 
42000 
43000 
44000 
45000 
46000 
47000 
48000 
49000 
50000 
51000 
52000 
53000 
54000 
55000 
56000 
57000 
58000 
59000 
60000 
61000 
62000 
63000 
64000 
65000 
66000 



IF TYPPTAB1 TTvIIfORMSFtLFS THEN ERROR(AO)J 
ARR STRUCT I -TYPFTAR1 rTXl I STRUCT* 
WHTLE T>0 HO 
BEGIN 

T1I«TYPFTABHH» T3, i mj 1 . ARRTYPE I 

TUARRTYPFtwT** Tl . "STRUCT » » ARRSTRUCT I -ARRSTRUCT + 1 1 

Tiisi7C««SXI»M!Nr?02/!*SXKTl.SIZE)) 

TYPETABitT3l«Tll TXi-TJ Tl«T3J 
ENOJ 

TTYPFI-TXJ TSIZEt-SXJ 
FNO OF ARRAY OFCLARATTON FLSE 



TF CURSYwFlLFSY THFN 

REG IN . 

iNSYMBOi'l 

IF CURSY*OFSY THFN 

BEGIN FRR0RC1B)J 

IF CURSY*TOENTIFtFR 
ENO ELSF INSYMBOL) 
TYPEOECI (TX#SX)J» 
IF TX>0 THFN 
BEOIN Tl«TYPFTARirTyl) 

IF TjFORMJFlLPS tHEN ERR0RC50) FLSE 
T.STRUCT>1 THpN ERR0RC49JJ 



X*** FILE DECLARATION *** 
ft*********************** 



THEN INSYMBOLJ 



IF 
ENOJ 

NEWTYPFJ 
Tll.TF Ti 



TTYPEMTYPEImOEXJ 
FORMiCHAR THEm TEXTFILE ELSF FILES; 
TlISIZFiaTSTZFt-SX; T7 > RETYPE I «TX j 
TlISTRUrTlsil 
TYPET ARltTYPFTNnFXI t«T7; 
FND OF FIj E DEC! ARATTDN FLSF 



X*** SFT DECLARATION *** 



TF CUR5Y«SETSY THpN 
BFGIN 

INSYMBOl I 

IF CURSYXOFSY THFN 

BEftIN FRROBMJUJ 

IF CURSY>CHARrON«sT THEN TNSYMBOLJ 

ENn ELSF INSYMBOLI 

TYPFOECI (TXtSX)J 

IF TX>0 THFN 

BEGIN 

TF TYPETABirTX1.FORM>CHAR THFN ERR0Rf48) ELSF 

TF TYPETABPfTvKO OR TYPETAB 3t TX3>38 THEN ERR0Rt5l)J 

END! 

NEWTYPF? TTYPFI«TYPEImOEX; 

Ti|«SETl TlIsFTTYPFI«iry) Ti ISTRUCTIbO J 

tl. SI ZF I -TSIZF I nit TYpFTABl C TYPE INDEXl I «»T1 i 

TYPETAR?CTYPFTNnEXl!«»TvPETAB2CTX3j 

TYPETAB?[TYPFINOEX5l»TvPETAB3ETX]J 
FND OF SET OFCLARATTON Fi'SF 



%*** RFCORO DECLARATION *** 
X*****#****##************** 



If CURSY*REC0R0SY THFw 

IF LASTREC-1>Ct)RLFVFL THEN LASTREC I »LASTREC-1 ELSE ERR0RC55); 

RECINXI-LASTRFCI 
BLOCKTABtRECINxllwNllMBi'OCKSlBNUMBLOCKS + i; 



70167000 
70168000 
70169000 
70170000 
70171000 
70172000 
70173000 
70174000 
70175000 
70176000 
70177000 
70178000 
70179000 
7Q1800OO 
70181000 
70182000 
70183000 
70184000 
70183000 
70186000 
70187000 
70188000 
70189000 
70190000 
70191000 
70192000 
70193000 
70194000 
70195000 
70196000 
70197000 
70198000 
70199000 
70200000 
70201000 
70202000 
70203000 
70204000 
70205000 
70206000 
70207000 
70208000 
70209000 
70210000 
70211000 
70212000 
70213000 
70214000 
70215000 
70216000 
70217000 
70218000 
70219000 
70220000 
70221000 
70222000 
70223000 



INSYMROI i 

FIELOL1ST(RECINY#0*SX),7 

IF SXM02? THFN RFfiTN fRR0R(56)J SYI-1022 ENDJ 

NEWTYPEI TTYPFI*TYPEImOEXJ 

Tl|«RF_CnRD) Tl *RFCTABf»RECINXJ Tl I STRUCT » »1 J 
T 1. S I Zr f »T S T?F I wSX? TvPETAB IE TYPETNOFX J IwTi; 
TYPFTAB?CTYPETNOEXll»Oi TYPETAB3C TYPE INDEX 3 l«SX-l t 
IF CURSY*ENOSY THFN BEftTN ERRORC24)J SKlP(ENOSY) ENOJ 
IF CURSY«ENOSY THFN IN^YMBOU 
END FL5E PEGIN FRRORfAJJ SKIPC99) ENDJ 
FNri; 
End flF TYPPDECLI 

PROCFnilRE FlEini ISTfRFCTAB,FlR«TADOR#LASTADDR5J 

VALUF RFCTaB^FIrSTaOORJ 

INTEGER RErTAB.rlRSTAnnR.LASTAnnRJ 

BFGlN 

TNTFGER ARRAY TL 1ST TO II tSTi'fNGTHJ ) 
INTEGER L.TSTTNX) 

TNTFGFB CASFTYPF. Anr)P#MAXAnnR#INDFX*CTYPF#TX»SX#Tlf T3»l LIM,ULIM*IJ 

BOOLEAN FIRST? 

RFAL CyALJ 

l.ABFL CASETYPETD#CAsFPART#fxITJ 

AnnR*«FIRSTADDR; 
00 BEGIN 

WHILF CURSY«SFMTCnLON 00 TNSYMBOL* 

TF CURSY»PASFSY.THFN.r,0 TO CASEPARTJ 

TF CURSYwTOENTlFlFR TmEN 
BEGIm 

LISTTNXt*Oj FTRSTtiTRi'iFJ 
DO BEGIN 

TF FIRST THFN FTRST I »F ALSE Ft.SE INSYMBOL* 

TF CURSYbTOFNTIFIFR THEN 

BEGIN 

IF I ISTTNXHTSTi ENftTH THEN BEGIN FRROR(37)J LISTINXI»0 ENDJ 
LlSTINYI«L!STTNy+lT 

NEWNAMF(CuRNAMFl"#CriRNAME2,RECTAR); 
ILISTtLlSTTNXllaTHTSINOEX) 
INSYMBOLI 
FMD El SE 
RE6IN ERR0Rf9)J 

IF CURSY^COMMA THEN INSYMBOLJ 
ENDJ 
END UNTIL CURSYjfCOMMAJ 

IF CURSY/CnLDN THEN BEftTN ERR0R(26)J SKlPf COLON) END; 
INSYMROI i 
TYPEDECI (TV.SX)i 
IF s TX>0 THFN IF TYPf JAn1 C TX3 «FORM£FTLF S THEN ERR0Rf57)J 

T3.ioclaSsi«varj ti.tvpei«tx; 

FOR II»1 STFP 1 UNTTL J'lSTlNX 00 
BEfilM 

TSllNPOtJAOORJ AO0Ri*MIN<AD0R+SX*1024>J 

NAMETAB3fRFCTARtTl IStM JJMT3J 
ENOJ 
END) 



70224000 

70225000 

70226000 

70227000 

70228000 

70229000 

70230000 

70231000 

70232000 

70233000 

70234000 

70235000 

70236000 

70237000 

70238000 

70239000 

70240000 

70241000 

70242000 

70243000 

70244000 

70245000 

70246000 

70247000 

70248000 

70249000 

70250000 

70251000 

70252000 

70253000 

70254000 

70255000 

70256000 

70257000 

70258000 

70259000 

70260000 

70261000 

70262000 

70263000 

70264000 

70265000 

70266000 

70267000 

70268000 

70269000 

70270000 

70271000 

70272000 

70273000 

70274000 

70275000 

70276000 

70277000 

70278000 

70279000 

70280000 



FNn UNTIL CllRSYjfSFMTCOl HNJ 
LASTA0n9l«iAnDRj 

r,n to fxit; 



CASEPARTI 

LTSTlNX««OJ LAS 

TNSYMBflLJ 

TF. CURSY»TOFNTTF 

RFRTN 

SFARCHJ 

!F PQIJN0.4ND T 

NFWNAME<CllRNAM 

tnsymbolj 

TF CllRSY^rOLON 
TNSYMBOLJ 
TF CURSY-TOFNT 
RFGlM 
SFARCHj 
IF FOUND THF 
BEfilN 

TF THTSInl 
REGIN 
CASETYPElDl CASFTYPF 
UTMHTY 

TF Ti.ro 
IF TNOFY 
BEGTN 

T^.inr 

AnDRt» 
END! 

INSYMBOL 

FND l\ SE B 

CNn FLSF BFG 

FNO FLSF REGTN 

Fivin ELSF BFfilN F 

TF CURSY*OFSY JH 

TF CURSYwOFSY TH 

TF CASFTYPF»0 TH 

no BEGTN 

WHlLF CURSY-SF 
TF CllRSY<fHAPC 
BFGIN 

FTRSTI-TRUFJ 
DO BFGTw 

TF FIRST T 
CONSTANTS 
TF CTYPF>0 
BEGIN 

IF CASFT 

IF CVAL< 
CHFCKTYP 
IF I. ISTT 
LI.5TINXI 
ILTSTTLT 
WHILE IL 
IF T<LTS 
FNOJ 



TAnnRl-AOORj INDEXI»«1J 
TFR THFM 

HISTn^TnCL&SSwTYPFS THEN fiO TO CASFTYPFIOJ 
Fl,CURNAME9»RECTAB); TNDFX t "THISINOEX I 

THFN FRR0of?6)J 

TFIFR TUEN 



N 

inCl ASSiTYpFS THEN 

t«THISTruTvPEJ TH*TYPETARHCASETYPE]1 
PFTAB?rrASpTYPE3l ULIM l»TYPETAB3tCASETYPEl i 
RM>CHAR THrN FRR0R(48)J 
>0 THFN 

LASSIbVARI T3.TYPEI»CASFTYPE; Ta^TNFOI-AODRJ 
L ASTADnpt.^nDR+i; NAMETAB9tRFCTAB,TNDFX3 »aT3J 

FGTN FRR0R<7)J SKIP(OFSY) FNDJ 
TN FRRnPCl'-ti SKlP(OFSY) ENOJ 

FRR0Pr9);_SKlP(0FSY) ENDJ 
RR0RC9H S^TPfOFSY) ENDJ 
FN BFGTW EoR0R(l8)J SKIPfRPAR) ENDJ 
FN TNSYMBOi'j 
FN BFGTN Li'lMl»-MAXINTJ ULT M I »MAXI NT ENDJ 

MTCOLON no tnsymbolj 

0NST OR CURSY-PLUS OR CLJRSYwMlNUS THEN 



HFN FTRSTl*FALSE 
VAL#CTYPE)I 
THFN 



FLSE INSYMBOU 



YPF»0 THEN CASETYPEI«CTYPF ELSE 

LLTM OR CV4L>ULIM THEN ERR0R<14) ELSE 

FS(CASFTYPr,CTYPE)J 

NX>LTSTi'ENr-TH THEN BEGIN FRR0R(30)J LISTINXH 

^LISTINY+lj 

STTNXll«CV/kLJ I«*1J 

iSTriJffVAi' 00 I1>»I + 1J 

TINX THFN rRROROl); 



'0 end; 



70281000 

70282000 
70283000 
70284000 
70285000 
70286000 
70287000 
70288000 
70289000 
70290000 
70291000 
70292000 
70293000 
70294000 
70295000 
70296000 
70297000 
70298000 
70299000 
70300000 
70301000 
70302000 
70303000 
70304000 
70305000 
70306000 
70307000 
70308000 
70309000 
70310000 
70311000 
70312000 
70313000 
70314000 
70315000 
70316000 
70317000 
70318000 
70319000 
70320000 
70321000 
70322000 
70323000 
70324000 
70325000 
70326000 
70327000 
70328000 
70329000 
70330000 
70331000 
70332000 
70333000 
70334000 
70335000 
70336000 
70337000 



END UNTTL eURSYjfCO'MMAJ 70338000 

IF CURSY^CHLON THFN BEMN ERR0RC26); SKlP(LPAR) Eno; 70339000 

IF CURSY-COLOW yHFN IN«YMB0L; 70340000 

IF CURSY-LPAR THFN 70341000 

BEGIN 70342000 

TNSYMPOL! FIFLOI T ST^RECT AB, ADDR, M AXADDR ) ; 70343000 

TF MAyADDR>LASTAOnR THEN LASTAODRl ■MAXADDRi 70344000 

TF CURSY*RPAR THFM BrGTN ERRORUftW SKlPfRPAR) END) 70345000 

TNSYMP.OLJ 70346000 

ENO ELSF ERR0R(58); 70347000 

. FNDJ . 70348000 

FNO UNTIL CtlRSY NFO SFMtCOi'ON; X 70349000 

EVITI. 70350000 

END OF FIEI.OLIST) 70351000 

i*itt%t%%txt%%%t%%%%xt%x%%xi%%*t%%%xx%%%%x%t%t%%%%x%xx%%%%x%ttxx%%*x%%t%Baobi66o 

* X80002000 

* X80003000 

* . X80004000 
X PART 81 THF PROCEDURE BLOCK, X80005000 

* ------------------- X80006000 

* X80007000 
X X80008000 

* X80009000 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 800 1 0000 

80011000 

80012000 

., , 80013000 

PROCFOURE DFCLARE V ARSfPARAM,TAo,FTRST,LAST#LE V FL)i 80014000 

VALUF PARAM,FIRST»LAST#LFVF| J 80015000 

TNTE6FR ARRAY TABfoiJ 80016000 

INTERFR FIRST»LAST#LFVFI I 80017000 

BDPlfAN. PARAM; 80018000 

BFGIM ^ 80019000 

TNTF6FR LEVPLlOOO»TYP#NAM*wAMTAB#Tl#I#J#RFrSIZF; 80020000 

BOOLEAN REAJ VAR»ARRaYVAP#FtRSTDIM,fXTFILFj 80021000 

Al PHA FNAMEJ 80022000 

TNTFGFR FNLfNGTH.FNSTARTI * 80023000 

80024000 

I FVFL1000I»L EVFLxiOOOl 80025000 

FOR It-FIRST STFP 1 UNTTL i'aST DO 80026000 

BFGIN a _ 80027000 

NAMt w TABtj3,t9H01l NaMT^BI *NAMfTAB3CLEVFL* NAM 3 1 80028000 

TYPIbNAMTaB.JYPF; Tlt«TYPETABltTYP3; 80029000 

TF NAMTAB.lDrLASS GFO FUwC THEN 80030000 

PF6IN 80031000 

IF RFALVAR OR ARRAYvAR THEN 80032000 

BEfilN 80033000 

fiFN("I M # 1*75; 80034000 

RFALVAR! .ARRAYVAR! »FaLSEJ 80035000 

end; 80036000 

IF NAMTA8.TDC|ASS»FllNC THEN GEN( m REAL m »5#4)I 80037000 

GENC , PRnCE0U%« a ! )J 80038000 

gfmio(«v"#level?ooo+nam.5); genc h j",w7); 80039000 

FNO ELSE 80040000 

TF TI.STRUCT-O THfN X*** STMPLF TYPf *** 80041000 

BEGIN 80042000 

IF ARRAYVAR THFN BFftlN SEN f * •% 1# 73 i ARRAYVAR I »F ALSE END; 80043000 



S IF REALVAR THFM GFMf »h », 1 ,7 ) Fl.SE 80044000 

BEGTN GFNfRFAl '>57<l)J REALVAR I «TRUE ENDJ 80045000 

GEnTD("V%LFVFL1000 + NAm,5); 80046000 

FNO ELSE 80047000 

RFGlM 80048000 

IF RFALVAR tHFM BFGTN r.rN( M ;' , #ln7)J RTALVARtuFALSF ENDJ 80049000 

IF TKFflRM<FlLFS THFN % + ** ARRAY/RECORO *** 80050000 

BEGIN . .. , . 80051000 

TF ARRAYVAR THFN fiENr M ,*> 1 > 7 ) ELSE 80052000 

BpGlN GFN("ARRAY»#6*3)J ARRAYV ARI »TRUE END! 80053000 

GFNinf w V w ,LFVrL1Or)0+wAM»5)J GEN«"C W ,1»7)J 80054000 

FIRSTnlMt.TRUFI 80055000 

DO BPftlN 80056000 

IF FiRSTDTM THFN FtRSTOIMi.fALSE FLSE GENC",%1,7)J 80057000 

GENTNTfTYPFTABPrTYoDJ 80058000 

IF NOT PARAM THFN 80059000 

BEGTN .GFN<7l"*lj7>7 GENlNTfTYPETAB3tTYP3) FnDJ 80060000 

TYPiwIF TI.FORM.ARoAYS THEN TKARRTYPE ELSF REALTYPEJ 80061000 

T1I«TYPFTAB1FTYP]I 80062000 

END UNTIL TU5TRUfTT»nJ 80063000 

GFN(»M M # 1*7)1 80064000 

ENn ELSF 80065000 

BEGIN , X*** FILE *** 80066000 

IF RFALVAR f»R ARRAYVaR THEN 80067000 

BF,6IN GFNf w l«'.*l#T)l REALVAR iwARRAYVAR UFAL SE ENDI 80068000 

IF Tl.FORM-TFVTFTJE AND NOT PARAM THFN 80069000 

BEGIN 80070000 

IF mUMFTLFS>MAVFILpS THEN ERR0R(97) 80071000 

ELSE NUMFILE5!»NtjMFlLFS + n 80072000 

FlLFTABfNUMFILFS3liNAMJ 80073000 

FNO) 80074000 

FXTFT! El«FALSEJ 80075000 

FNAMF|«NAMFTABiri FVFi'#NAM]; 80076000 

FNLENftTH H FNAMf!namFLENGTH J FNSTART I* 8-FNLFNGTHJ % 80077000 

IF FNLENGTH LFO 6 THfN % 80078000 

BEGIN 80079000 

F0R_JI«1 STFP ? UNTIL NUMEXTFILES 00 80080000 

IF FNAME-FXTFTLPTARf J3 THEN EXTFIlF l»TRUEJ 80081000 

FNDJ . _ 80082000 

TF EXTFILF ANn NnT PaRAM THEN 80083000 

BEGIN 80084000 

IF NUMFH FS GFO MaXFILES THEN ERR0R(97) 80085000 

ELSE t 80086000 

NUMFILFS l« NUMFIi FS ♦ II 80087000 

Fli ETABCNUMFTI FS1 t* -NAM - if 80088000 

GENf"DFFTNF M #7,?)J GFNIOf "F%LFVFL 1 000+NAM,5 ) J 80089000 

QPN.("»",1 A 7)J 80090000 

GENfFNAMF#FNLFNftTH.FNSTART)i X 80091000 

GENr"#J",2,MJ GrN( M SAVE w #5,4)J GEN ("F TLE'S 5, 4)) 80092000 

GENfFNAMF,FNLFNftTH>NSTART); % 80093000 

FND Fl SE 80094000 

BEGIN 80095000 

GENf "FTLP W #'S#4U ftFNIDC "F" , LEVEL t 000+NAM,5 ) J 80096000 

FNOJ 80097000 

TF NOT PARAM THFN 80098000 

BFGIN 80099000 

GENf" DISK m ;6,3M GENC m SERIAL%7,2)J 80100000 



/>"" 



IF FXTFILF THEN 80101000 

RFGJN , „ 80102000 

TF ALR01.CNT I RS 13 THEN WRITFAL60L) 80103000 

GENf w rOl03 , '»S»3'i) 80104000 

GfN<""»,1 #7)1 80105000 

GFNfFNAME.FNLFNGrH.FNSTART)) X 80106000 

GFNC*"", 1.7)1 6FNCVN1.7)) 80107000 

IF ALfiOLCNKO THfN WRITEALGOL) 80108000 

QFN("<*«;i't7)T 6FN(USFR#7,l)jl GENf " w «» 1 » 7 ) ) 80109000 

FNO ELSF 80110000 

BEGIN _ 80111000 

f,FN(«f2rt|M,4,A)j GENC"300]«»4,4)) 80112000 

END) .. 80113000 

GENf"H,".3»5)|^ 80114000 

RFCRlZFi-TF Tl.FORvl»TFXTFlLE THFN 1q ELSE 8oll5ooO 

TF TYPFTABim.FlLETYPEliSTRUCTwO THEN 1 ELSE 80116000 

TYPFTABMTi.FiLETYPE3-TYPETA82[Tl,FiLETYPE) + lJ 80117000 

GENTNT<RFCSTZF)) GEN( "* »> 1 .7 ) ) 80118000 

IF PECSTZF^ OR RErSIZE-10 THEN GFNINTM50) 80119000 

ELSE GEnINTCRECSTZE)) 80120000 

IF ALGOLCNT LSS 10 THEN WRITEALGOL) 80121000 

GENr",$AVF",6,3>) GENt "30". 2, 6 ) I 80122000 

GENf"))"»P»6)) 80123000 

FNO Ei SE GFNf ") M »7. 7i) 80124000 

GENe»ARRAY".6.3)) GENIDt "V"*LEVFL lOOO+NAM. 5 ) ) 80125000 

GFN<"r%!>7il r . , „ 80126000 

TF TYPETARim .FTl ETvPE 3 . STRUCTsO THFN 80127000 

RFGIu 80128000 

IF PARAM THFN RFNf '«f) H * 1 . 7 ) ELSE GFN( "0 « 0% 3.5 ) ) 80129000 

FNO El SE 80130000 

RFGIN .. , 80131000 

GENTNTfTYPFTAR?rTi:FILETYPEl)l 80132000 

IF MOT PARAM THFN 80133000 

BEGTN GFNff.i .>)• GFNINTf TYPFT AB3 [Tl .FILETYPF ) ) END) 80134000 

FNO) 80135000 

GEN("))%2.6)) 80136000 

GFN("TNTFGFR".'B,1 )l GFNIDf' , I M ,LFVFLl000*NAM,5)l 80137000 

GEN(")%1,7)) 80138000 

tNOJ 80139000 

PNOJ 80140000 

FNO OF LOOP} 80141000 

TF rEALVAr OR ArrAYVAr tHEm GEN( ") ", 1 ,7 ) ) 80142000 

END OF nECl AREVARSJ 80143000 

8014^000 

80145000 

PROCPOIJRE PARAMFTERL TSTI 80146000 

BFGIN 80147000 

TNTFGFR FTRSTPARAM.eURKTNOTpi.PX.T.TJ 80148000 

BOOLEAN FIRST) 80149000 

_ . 80150000 

DFFINE NEWPaRAM* 80151000 

RFfilN 80152000 

IF. NUMPARAMS>MAYPAPAMS THFN 80153000 

BFGIN FRR0Rf70)) NUMPApAMS I *MAxPARAMS-lO END) 80154000 

NUMPARAMSl«NUMPARAMR+lT 80155000 

FNO OF NEWPARAM*) 80156000 

80157000 



Bl NFWPARAMJ FIRSTPARAMIbNUMpARAMSI 80158000 

A TF 0URSY*LPAR THFN 80159000 

! RFfiTN 80160000 

no BFGIN 80161000 

INSYMBOL J 80162000 

IF CURSY«VARSY OR HlRSvaFUNCSY OR CURSY*PROCSY THFN 80163000 

BEGIN 80164000 

CURKINDl*IF CURSY^VAPSY THEN VAR ELSE 80163000 

IF CtlRSY.FUwCSY THFN FUNC FLSE PROCJ 80166000 

TNSYMROL) 80167000 

END ELSF CURKTNDI*COM s t) 80168000 

FlRSTt»TRUF) P1 IwNiiMPaRAMS + IJ 80169000 

00 BEGIN 80170000 

TF FIRST THFN FTRSTl«FAL5E ELSE INSYMBOLI 80171000 

IF CUPSY-TOFNTIFTFR tHEN 80172000 

RFGIN 80173000 

NEWMAMFf CURNAMF? »CijRNAME2»CURLEVFL + l )^ 80174000 

PXl»THTSTNOFXJ PX*PARAMKIND • «CURKTNDJ 80175000 

PxlPARAMLFVFLl^CURi'FVEL-H J 80176000 

NEWPARAMJ PARAMTAnfNUMPARAMS3»aPX) 80177000 

FWO Ft SE FRR0R(9W 80178000 

TNSYMROLJ 80179000 

ENO UNTIL CURSY^COMMAJ 80180000 

IF CURSY-COLON THFN 80181000 

BEGIN 80182000 

TF CURKl^OaPROC TWEN FRR0RC9OJ 80183000 

TNSYMP.OLJ 80184000 

TF CURSY*TOFNTTFTFR THEN 80185000 

BEGIN 80186000 

SEARCH'i 80187000 

IF FOUND THFN 80188000 

BEGIN 80189000 

TF THTSTnlTDri'AS«!aiTYPES THEN 80190000 

PFGIN 80191000 

T3laTHI$I0.tYPPJ 80192000 

FOR ItwPl STEP 1 UNTIL NUMPARAMS DO 80193000 

PARAMTABf T1>ARAMTYPEl»T3; 80194000 

IF CURKTNO«CON«T OR CuRKIND*VAR THEN 80195000 

BEGIN 8019600(1 

Ti«TYPFTAR1Ct3]J 80197000 

IF T>ORM>Fli'FS THEN 80198000 

for ii»p1 «tep 1 until numparams do 80199000 

paRamtarchIpaRamfileim; 80200000 

IF T.STRUcT>n AND CURKlND-CONST THEN FRR0R<94)J 80201000 

ENH Fi SF IF Tl<TRUCT>0 THEN FRR0R(38)J 80202000 

END FLSF RFGTw ErR0R(7)I T3t*0 FNOJ 80203000 

END ELSE RFGIN FRRnRMJJ T3««0 ENOJ 80204000 

FNO Fi.SE BFfiTN FRR0R*9)J T3I«0 ENOJ 80205000 

TNSYMROLI 80206000 

ENO ELSF 80207000 

BEGIN 80208000 

IF CURKlNO*PROC THEN FRR0RC7); 80209000 

T3I-0J 80210000 

ENQJ 80211000 

T3.IDCLASSt»CURKlN0? T3. FORMAL «»1 J 80212000 

FOR Il-Pl STFP 1 UNTIL NUMPARAMS DO 80213000 

NAMFTAR3tCURLFVFL + l".*PAPAMTABCl].PARAMNAME5l«T3; 80214 000 



END 



FND UNTIL CURSY^SFMTCOLOwj 

TF CtlRSYKRPAR THFN 

BEGIN ERROR(465J SKTP(RoAR)J 

TF CURSY-RPAR THFN TNSYMBOLJ 

FND ELSE TNSYMBflU 
FNOJ 

PARAMTARrFTRSTPARAM]t*NllMPARAMS*FlRSTPARAM) 
nF PARAMFTFRLIST) 



procedure RLOCKJ 
BFGlN 

INTEGER INOFX* CTYPF,NUMFORwARDS* T, T3*TX# 1 1 

RFAL CVALJ 

ALPHA C1»C2J 

RnntEAN VALUEPARAMS#F|JN? 

t ARFL START* 

TNTF6FR LARtABTOP,CONSTTABtOP,TYPETABTOP>PARAMTABTOP#TOPREC* 
FORMERFTRSTJ AB,FTRSTFTt FJ 

FORMERFIRSTJ ABl»FTRSTLAR) 

I ABTABTHPl-NUMLARsi FtRStL AB I ""UABTABTOP + i J 

CONSTTABTOP »»NUM CONST S» 

TYPFTABTOPtaNUMTYPFSi 

PARAMTABTOPl*NUMPARAMSJ 

thprcc««lastrfc; 
ftrstfilft«mumfilfs+1 ; 

fOPLEVFLt*CU R LFVFLf 

TF CURl FVFL>1 THFN fiFN f «BF« TN"* 6» 3 ) ; 
START? 

TF CURSYbLARFLSY THFN 
BFfilN 

GFNCLAREL W »A»35; 

DO BEGIN 

tnsymrol; 

tf cursy»tntconst thrn 

RFGIN 

GFNTD( M L M »CllRVAi'*ft''»| 
IF CURVAL>9999 THEw ERROR(33)J 
FOR It«FlRSTI,AB.STrP 1 UNTIL NUMLABS DO 
IF I ABTABm. LARVAi .CURVAL THEN ERR0R(31)J 
IF NUMl..ABS>MAXl ABS THEN BEGIN FRR0RC34)j NUMLABStsO ENOJ 
NUM| ABSli»NUMLARS+ls 
LABTABfNUMLABS1f»CuRVAL; 
INSYMBOLJ 
FND El SE BfGTN FRRORMOJj SkIPCCOMMAI END; 
IF CURSY-COMMA THFN <sFN( ",% 1 ,7 ) J 
END UNTIL CURSYjfCOMMAJ 

IF CURSYXSEMTCOl ON tHEm BEGIN ERR0R(25)J SKTPf SFMICOLON ) FNDJ 
GEN( W J%1,7)J 

IF SYMKTNOrCURSYiyTMlTTAL THEN INSYMBOLJ 
FNO OF LABE,' OFClARATTOmJ 



%*** LABEL DECLARATION *** 



TF CURSY-CONSTSY THFN 
BFfiTN 



X*** CONSTANT DECLARATION *** 
%******•********************* 



80215000 

80216000 

80217000 

80218000 

80219000 

80220000 

80221000 

80222000 

80223000 

80400000 

80401000 

80402000 

80403000 

80404000 

80405000 

80406000 

80407000 

80408000 

80409000 

80410000 

80411000 

80412000 

80413000 

80414000 

80415000 

80416000 

80417000 

80418000 

80419000 

80420000 

80421000 

80422000 

80423000 

80424000 

80425000 

80426000 

80427000 

80428000 

80429000 

80430000 

80431000 

80432000 

80433000 

80434000 

80435000 

80436000 

80437000 

80438000 

80439000 

80440000 

80441000 

80442000 

80443000 

80444000 

80445000 
80446000 
80447000 



INSYMBOl 

DO BEGIN 

TF CUR 

RE6IN 

NFWN 

INSY 

IF c 

BEGT 

TW 

T3 

IF 

BF 



; 

SY-TOFNTlFTFR tHEN 

AMF?»ChRNAME2,CURLEVFL)J INDEX I "THIS INDEX ; 



Fwn 



FN 
NA 
FNO 

FMD F| 

TF CUR 

IF SYMKT 

END UNIT 

OF CONST 



AMFf CORN 
MBOi; 
URSY*FOL 
N 

SYMROLI 
t«CTYPFJ 

cval'fa 

SIN 

IF NUMCH 

BEGIN FR 

NUMCONST 

CONSTTAB 

T3*TNFni 

FLSF T 

METAB3TC 

ELSF. BFfi 

SF RFfilM 

SY^SFMTC 

NnrCURSY 

L CURSYX 

ANT OFCL 



SY THEM 

CnNSTANTCCVAL#CTYPE); 
T^InCLASSIsCONST; 
A»fll*0 HR CVALM023 THFN 

nsts>m!xconsts THEN 

RORf35^J NUMCONSTSt»0 FNDJ 

Sl*NUMrONSTS*li 

tNUMCOwSTS3l*CVAL; 

■10J3+MUMCONSTSI 

3.T(CiF0f«iCVALi 

URI FVEi'»INDEX3l«T3J 

IN FRRnR(36)J SKIP( SFMTCOLON } END; 

ERRORjP)) SKIP(SEMICOLON) END; 
OLON TuFN BEGIN ERR0Rf?5); SKIPf SEMICOLON) 
J*TmITtAL THEN INSYMBflLl 

tdfntipter; 
aratiOm; 



ENOJ 



%*** TYPE OFCLARATTON *** 



INDEXl-THlSINDExi 



TF CURSY*TYPESY THFN 
RFGTN 

iNsYMBni ; 

DO BEGIN 

TF CURSY-TOFNTTFTFR THEN 
RFGIN 

NEWNAMFf CURNAMF1j»ChRNAME2*CURLEVEI 5* 

INSYMBDLJ 

TF CURSY*FOLSY tHEm 

BEGIN 

INSYMBOLJ 

TYPEDFCI (CTYPF,Tv)i 
T3««CTYPFJ T^IOPLASSl*TYPES; 
NAMFTAB^fCURI FVFJ'* InOEX ] | -T3J 
END ELSF BFGTN FRRnR(36)J SKI P( SEMICOLON) FND; 
FNO El SE BFGIN ERR0R$9j; SKIP CSEM ICOLON ) END; 

TF CURSY^SEMICOLnN TuFN BEGIN ERROR(?5); SKIPf SFMICOLON) END; 
IF SYMKTNorcURSYl/TWlTTAL THEN INSYMBOL* 
... END UNTTL CURSYflOFNTIcTERJ 
FNO OF TYPF DECLARATION? 



%*** VARIABLE OFCLARATION *** 



TF CURSY-VARSY THFN 
BFRTN 

VARINDEXI-O; 
DO BEGIN 

FIRSTvARl«VARTNDFY+lT 
no BFRIN 

IF CURSYsVARSY nR rtlRSY«COMMA THEN INSYMBOL; 

IF CURSY-IDFNTTPlEu THEN 

BEGIN 

IF VARTNn>X>l TSTi'FNGTH THEN 



80448000 

80449000 

80450000 

80451000 

80452000 

80453000 

80454000 

80455000 

B0456000 

80457000 

80458000 

80459000 

80460000 

80461000 

80462000 

80463000 

80464000 

80465000 

80466000 

80467000 

80468000 

80469000 

80470000 

80471000 

80472000 

80473000 

80474000 

80475000 

80476000 

80477000 

80478000 

80479000 

80480000 

80481000 

80482000 

80483000 

80484000 

80485000 

80486000 

80487000 

80488000 

80489000 

80490000 

80491000 

80492000 

80493000 

80494000 

80495000 

80496000 

80497000 

80498000 

80499000 

80500000 

80501000 

80502000 

80503000 

80504000 



FMH 



RFQI 

VARI 

NFWN 

VARL 

IWSY 

END EL 

FND UNTI 

TF CURSY 

TF CURSY 

REGIN 

INSYMB 

TYPfDE 

T3I«CT 

FOR II 

N a M E 

FND El SE 

|F CURSY 

IE SYMKTNO 

END UNTTL 

DECLAREVAR 

OF VARTABL 



n ERR0RM7); varindexi«o end; 

NDFX.I«VARTND£X + U 

AMEfrilRNAMEl.CURNAMF2#CURLFVEL)i 

TSTfVARTNnEXl t«THISTNDEX; 

MROIJ 

SF RFGTN FRRgR(9)J SKlPCCOLON) END; 

L CURSY/rnMMAj 

#cni ON THfN BEGIN ERR0R(26H SKIP(COLON) 

asCni ON THFN 



end; 



CL<CTYPE»TX): 

YPFJ TslTDCi'ASSl»VARj 

oFIR$TVAR STrP 1 UNTIL VARINDEX DO 

TABSreURl FVEi'.VARLISTmitiTBJ 

RF6IN FRROR^?65l SkIP( SEMI COLON ) END; 
¥SFMtCOLOw TuFN BE6|N ERR0R(25)J SK jP f SEMICOLON J ENOJ 
reURSY}/TwIT»AL THEN INSYMBOL* 
CUR5Y*lOFNTIrTERJ 

SfEALSF*yARLTST*l»VARlNDEX»CURLEVEL)i 
F DFCLARATlOwJ 



TF NUMPNTRS>0 THFN 
RFfiTN 

CUsCURNAmED C?t»CllRNAME2J 

FOR Tl«l STEP 1 UNTII NUmPNTRS DO 

REGlM 

CURNAMF1 »*PNTRTAB1 M3J CURNAME2 I »PNTRT AB2 1 1] J 
SEARCHTAB(CURLFVEL>? 

THTSIDtiNAMFTA83tCllRLE»FL»THlSINDEX3l 
IF FOUND AND THT SI D. I OrL ASS*TYPES THFN 

TYPETAR1 tPNTRTAB3f Til. oOINTTYPFI«THISTD. TYPE ELSE FRR0R{62)J 
ENDJ 
. RURNAMEllaCll CURNAMF2t»C2* NlJMPNTRS I «OJ 
FMDI 

WHILE CURSY-FUNCSY OR CIlRSv-PROCSY DO %*** PROC/FUNC DECLARATION ** 
BFfilN J**************************** 

EUNIwCtlRSYwFUNCSYl IN«yMBOL* 
IF CURSYMOFNTTFIFR THpN 
BEGIN 

5EARrHTAB(CURLFVFi*)J 

THIS I Dl«NAMFTAB3rrURi'FVEL# THIS INDEX 1 i 

TF FOUND AND THI STOl TDCLASS>PROC THEN 

REGIN 

indfxi«thtstndfyj 

IF THISIdIfhRWARDDpF*! THEN 
BEGIN 

NAMETABjtTHISl EVpL* THI SINDEX3 .FORWARDDEF !* 0? 
NUMFnRWARD.SMNUMFORWARDS-1) 
TF(THTSTD 8 IDci'ASi«PROC AND FUN50R 

(THISTD.IDci'AS««FUNC AND NOT Fl'lN) THEN FRRORC435J 
TNSYMBOI I 
END ELSE REGTN FRRnRf2)J SKlPfSEMTCOLON ) END* 
END El SE 
REGIN 

NEWNAMFf CURNAMF?#CnRNAME2,CURLEVFL)i INDEX I -THIS I NDEX I 



80505000 

80506000 
80507000 
80508000 
80509000 
80510000 
80511000 
80512000 
80513000 
80514000 
80515000 
80516000 
80517000 
80518000 
80519000 
80520000 
80521000 
80522000 
80523000 
80524000 
80525000 
80526000 
80527000 
80528000 
80529000 
80530000 
80531000 
80532000 
80533000 
80534000 
80535000 
80536000 
80537000 
80538000 
80539000 
80540000 
*80541000 
♦80542000 
80543000 
80544000 
80545000 
80546000 
80547000 
80548000 
80549000 
80550000 
80551000 

80552000 
80553000 
80554000 
80555000 
80556000 

80567000 
80568000 

80569000 
80570000 
80571000 



T3l«0l Tl.TNFO^NuMPARAMS + i; 80572000 

T3lT0CLASSt«TF FUN THEN FUNC ELSE PROCJ 80573000 

NAMrTAB3rCURLFVFL»fN0EX]t«T3J 80574000 

INSYMRnLi PARAMETpRLTSTJ 80575000 

IF CURSY-COl ON THEw 80576000 

BEGTN 80577000 

Tr NOT FUN THFN fRR0R(48)J 80578000 

INSYMBOL; 80579000 

TF CtlRSYaTOENTlFtFR THEN 80580000 

BFGIN 80581000 

SEARCH* 80582000 

IF FOUNn THFN 80583000 

BEGIN 80584000 

TF THTSln!lOrLASS*TYPES THFN 80585000 

BFfiTN 80586000 

Tl-TYPFTABTrTHISlD^TYPElJ 80587000 

TF tIF0pM<UFA OR T,FORM«POINTERS THEN 80588000 

RFGTN 80589000 

NAMFTAB3rCURLEVFU#INDEXKTYPEr»THTSin.TYPE; 80590000 

FNO ELSF EoR0R(38)l 80591000 

FNO FLSF FRRflRC7)J 80592000 

END Fl.SF FRPORfD; 80593000 

FNO ELSF .FRRn&(9'iJ 80594000 

IWSYMBOLI 80595000 

ENO ELSE TF FUN THfN 80596000 

BE«TN FRR0Rf?61? «KIP( SEMICOLON ) FNDJ 80597000 

FNDJ 80598000 

ENO ELSF BFGIN FRR0P(9>; SKlP( SEMICOLON > ENOJ 80599000 

IF CURSY^SFMTCOLON THEw BEGIN ERR0RC253J SKIP (SFMICOLON ) END* 80600000 

IF FUN THEN GENf "FUNCTw", 7# 2 > ELSE 80601000 

GEMf M PRnCEOU ,, »R#hi GPNI0C , V M ,l0OOxCURLEVEL + INnEX,5); 80602000 

TlsNAMETAB3tCURLEVFi » ImOEX J . INFOJ TX l«T + PARAMTABtT3 J 80603000 

IF TX>T THFN 80604000 

BEGIN 80605000 

GEN( M ("M,7)r _ „ 80606000 

FOR Il"T*l STFP i UNjTL TX DO 80607000 

BEGIN GENT0f"V H #1O00vfCURLEVEL*lUPARAMTAB[n.PARAMNAME,5)i 80608000 

IF BOOLFAN(PARAMTAorn.PARAMFILE) THEN 80609000 

BFGTN 80610000 

6FN(",",1,7)J 80611000 

GFNInf«F" j ,ioOrtx(ri)RLEvEL + l}*PARAMTABrn ( ;PARAMNAME,5)) 80612000 

GFN(",","i;7)J 80613000 

GFNIOf •*T",l00nx(MlRLEVEL*lUPARAMTABtn.PARAMNAME#5)J 80614000 

ENOJ 80615000 

IF T LSS TX THFN GfN( w * "> 1 * 7 ) J 80616000 

FNO; 80617000 

r,EN(»nJ%2,6); 80618000 

VALUFPARAMSl«FALSP) 80619000 

FOR Il«Tii STFP 1 UNTIL TX DO 80620000 

TF PARAMTABf TlIPAPAMi<TNO*CONST THEN 80621000 

BEGIN 80622000 

IF MOT VAI.UFPARAMS THEN 80623000 

BEGTN GFNf"VALllF"*A,3)j 80624000 

valueparamsibTRue; 8O625600 

ENn ELSF 0EN<%"#1.7)) 80626000 

GENTDCV.lOOOxrCUOLEVEL+n + PARAMTABtn.PARAMNAME^S)! 80627000 

FNDJ 80628000 



H IF VA| UEPARAMS THFN «FN( "I % 1 »7 ) J 80629000 

OFCLAREVARSfTRUr»PARAMTAB#T+l#TX,CURLEVFL+D) 80630000 

ENn ELSF GFNf"J", 1.7)1 80631000 

80632000 

INSYMBOl I . 80633000 

IF CURnAME1«"7FoRWAp m A N D CuRnAME2««D« THE n 80634000 

BFr ' IN .. .. 80635000 

NAMETABSfeURLFVFL.lNnFX] .FORW ARDOEF I ■ 1 } 80636000 

NUMFORWA&DSt«NUMFnRWlRDS+lJ 806 37000 

r,FNe«F0RWAR0 w ,fi#ni 80638000 

INSYMrOIJ 80639000 

FNn ELSf 80640000 

BE GIN m 80641000 

rijRLFvELt-CURLFVFl +l! 80642000 

TF CURLFWFULASTRFC tHEN ERR0RC55)! 80643000 

RLOCKTARreURLFVFl 1 1 *mI|MBL0CK5I "NUMBLOCKSM J 80644000 

TI»CURFUNCJ rURFilNCjaTF FUN THEN INDEX ELSE -II 80645000 

RIOCKI X*** COMpILr PROCEDURE BODY *** 80646000 

PFPLAffE POTNTFRfNAMETA81CCURLEVEL»*3) BY 80647000 

.. „ FOR MAVNAMES+1 WORDS! 80648000 

ruRLFvELl»CtjRLEVFI -Is CURFuNCtsjl 80649000 

TOPLFVELI-CUPLEVFI I 80650000 

ENn > „ 80651000 

IF CURSYXSPMTCOl ON tHEm BEGIN ERR0R(?5)I SKIP( SFMICOLON) ENDI 80652000 

GEw<»J%l,7)J 80653000 

IF SYMKTNDCCURSYIXTwITtAL THEN INSYMROLI 80654000 

PNn OF PROCEDURE DFCLARATlnNJ 80655000 

80656000 

80657000 

IF NUMF0RWARD5>0 THFN FrR0b(44)J 80658000 

OENf M lNTESFR ,, »ft, 1)1 80659000 

FOR Ilal STFP 1 UNTIL MaXTfMPS DO 80660000 

RFfiTN flENlD(*T%T,?)| 80661000 

TF KMAXTFMPS THFN GrNC ", "» 1 , 7 ) FLSF QENC " J"* 1 »7 J J 80662000 

FNDI 80663000 

TF CURSYXRFfilNSY THFN 80664000 

RFfiTN FRR0Rf39)J 80665000 

WHILF SYMKTNOrCURSYJ^TNlTlAL DO 80666000 

PFGIN INSYMROLI SkIPz-SEMICOlON) END! 80667000 

TF(CURSY«TYPFSY)OR(CnNSTSYSCURSY AND CURSYSPROCSY )THEN 80668000 

r,0 TO STARTI 80669000 

FNDI 80670000 

IF CURLFVFL.l THFN 80671000 

BF6IN 80672000 

0FN( M INITr H »5,3)J 80673000 

TF INPUTDFCL THFN 6FNf "T»UF"#4 #4 ) ELSE GFNC "FALSE", 5 ,3 ) I 80674000 

fiEN<«)l»,?,6)J 80675000 

END* . .. . 80676000 

FOR II.FIRSTFILF STEP 1 UNTIL NUMFILES DO 80677000 

IF FlLETABrl] LSS THFN 80678000 

BFSIN . . - 80679000 

0FNC W CHFIL( M *6»?)> 80680000 

GFNlDf "Ft.iooOxCURi EVFL-FILETABCI 1-1,5)1 80681000 

GFN<"")|%?,6); 80682000 

FNO 80683000 

-Fl SE 80684000 

BEGIN 80685000 



0ENInf w I"."l0O0xeURLFVFL + FlLETABrn»5)J 80686000 

. fiFNriM»nJ RrNf' , RllFST7E w #7M)^ GEN fM*80J %5» 3) J 80687000 

FNOJ 80688000 

NIJMFILFSI-FTRSTFTLF-I J 80689000 

80690000 

COMPSTATJ «*** COMPTLF STATEMENT PART *** 80691000 

, ,, 80692000 

FOR Il-LASTREC STfP 1 UmTIi TOPREC-1 00 80693000 

RPP! ACF P0lNTCR(NAMFTABTci7*l) BY FOR MAVNAMES+1 WOROSJ 80694000 

FQR It-FIRSTLAR STFP 1 UNTtL NUMLABS 00 80695000 

TF LABTABET1.LABDFF«0 THEN FRR0RC93W 80696000 

i.ASTRFr«»»TOPRFC; 80697000 

NIJMLABSI-LARTABTOPI 80698000 

FTRSTUBI-FriRMFRFTRSTLARj 80699000 

NUMCONSTSl«rONSTTABTOP» 80700000 

NUMTYPFSlnTYPFTABTOPi , 80701000 

NyMPARAMSlBPARAMTARTOPii 80702000 

TF CUR L FVFl>1 THFN GENf w ENS"»4#5)J 80703000 

FMO OF BLOCK* 80704000 

XXXXXXXXXXXXXXXXXXXXXXX%XXXXXX*XXXXX%XXXXXXXX%X%XXXXXXXXXXXX%%XX%XX%XXX%9 oooiooo 

* X90002000 
% X90003000 

* . X90004000 
X PART 91 TwF MAIN PROGRAM. X90005000 
X •*•.••••....•..,. X90006000 
X X90007000 

* X90008000 

* X90009000 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX%XXX900\0000 

90011000 

90012000 

INTFGFR PROGNAMFLFWSTHI 90013000 

Al PHA PROGNAMF.'ALGOLNAMri 90014000 

90015000 

ALGOt MAMEt« w PASffOOO w IFNTTFRrTlMFf 4)M0D 10) [ 17 15 16] J 90016000 

ALGni NAMEl-ALGOi NAMFtFMTIFRfTlMFC4)DlV 7)ClH5t63l 90017000 

AlGOLNAMEl-ALGHl NAMFtFNTIERf TImPJ 4 )MQO 9)t5t5l6]J 90018000 

U$ERtfTTME(-l)J 90019000 

FTLL. PASCAL 60L WITH A| GnLN AME#hSERJ 90020000 

BFGIN , . _ 90021000 

FTI F PASCRUW OTSK SFRTA! "p ASCRUN'V'DISK" f2>10,150)j 90022000 

ARRAY RUFf0l9li 90023000 

LABFL FOFJ 90024000 

■ ... _ 90025000 

WHTLE TRUE 00 90026000 

RFGTN 90027000 

f»EAOfPASCRUN#9»BlJFE*ll.ErOF3l 90028000 

WRlTFCPASCAL00L#10»BtlFC*1 )J 90029000 

FNOJ 90030000 

FOFl 90031000 

END f)F TRANSFER OF RUM TTMP SYSTEM) 90032000 

CARDi FNGTH««72i 90033000 

INITIAITZEI NFWCARDJ 90034000 

Lt$tOPTlON»«CHECKOPTiONt*TRIlEJ 9OO35OO0 

ei*""* INSYMROLJ 90036000 

IF CURSY»PROGRAMSY THFM 90037000 

BFGlN 90038000 



INSYMBOL; 90039000 

if.cursy.ioentifter then 90040000 

BEGIN . „ 90041000 

pRnsNAMri«ci)RNAMn . r 351*6! t prognamelengthismin(6»curlength)j 90042000 

TMSYMBOL; 90043000 

TF CURSY*LPAR THFN 90044000 

BFGIN 90045000 

00 BFSIN 90046000 

INSYMBOl J 90047000 

IF CURSY«lOENTTFlFR THrN 90048000 

BEGIN 90049000 

TF CUBNAMEi*' f 50lNPUT« THEN INPUTOECL I -TRUE ELSE 90050000 

TF CURNAMEI-^OUTPUT" THEN OUTPUTOECL * "TRUE ELSE 90051000 

BEGIN 90052000 

TF rURLFN0TH>6 THEm ERR0R(77)J 90053000 

NUMFXTFIIFSI*N!IMEXtFILES+1J 90054000 

IF NUM r xTETLFS<MAXpXTFlLES THeN 90055000 

FxTFlLFTARfNUMFyTFtLFSllaCURNAMEl ELSE 90056000 

IF NUMFXTFTLFS*MAXrXTFIlES+l THEN FRR0R(73)J 90057000 

END! . 90058000 

ENO ELSF ERRORfo)J 90059000 

INSYMBHI J 90060000 

FNO UNTIL CURSYfCOMMAI 90061000 

TF CllRSY*RPAR THEN BFfilN FRR0RC46)J SKIP f SEMI COLON) FNOJ 90062000 

TF CURSY-RPAR THEN TNSYMpOLJ 90063000 

, TF CllRSYrfSFMTCOlON THrN bFGIN ERR0Rf25)J SKIP (SEMICOLON ) END) 90064000 

FNO ELSE BFClIN ERR0Rf5>nJ «KlP(SEMICOLON) END* 90065000 

END FlSE BEGIN ERR0Rf9)J SKIb(SEMICOLON) ENOJ 90066000 

END FLSF BFGIN FRRnR(755J SKlPf SEMI COLON ) ENOJ 90067000 

INSYMBOLJ . 90068000 

euRLFV£L««»1J 90069000 

LASTRFCI'MAXTARI ES+1 J 90070000 

XtXXXXXXXXXXXXXXXXXXXXXxXXXXXXi!XXXX%%XXX%XXXXXXX%XXX%XXX%XXX%%XXXXXX%%X%9007\000 

% X90072000 

BLOCK! % COMPILE USER PROGRAM. X90073000 

* %90074000 

%XXXXXXX%%XX%%XX%XXXXXXXX%X*X%«XX%X%%XXXXXXX%XXX%XXX%XXX%XX%%%%XXXXX%%%%9QO7S000 

IF CURSY^OHT THFN 90076000 

BFGIn 90077000 

FRR0R(76H 90078000 

HO BLOCK UNTIL CURSY^OOTJ 90079000 

END* 90080000 

TF FALSE THEN 90081000 

RFGIn 90082000 

ENOOFTNPUTl ERR0RC«7)J CHADCNTla-li 90083000 

WRTTE(LTNFS*TERMME<S)j 90084000 

END) 90085000 

fF LTSTOPTTON AND CHARCMT>0 THrN PRINTLINE? 90086000 

TF ERRTNX>0 THFN PRINTFRRORSJ 90087000 

WRlTF(LTNESt08L1); 90088000 

WRTTHi'TNEStOBLI > J 90089000 

IF NtlMFRRSaO THFN 90090000 

BFGlw 90091000 

ARRAY ZIPABRAYrOM91# 7rO!n5J 90092000 

POINTER ZIPPNTI 90093000 

90094000 

OPPTNE ZIPTrXTf TFXT.Da 90095000 



RFftIN 

ZCO]i«TFXTj 

REPLACE ZIPPNT«7TPPmT 

fnd*; 



BY P0lNTER(Zt*m(8-L) FOR H 



PROCEDURE ZTPN(iMfN)J 

VAI UE Ml INTEGER NJ 

TF NS9 THEN Zl PTFXTf N* 1 ) Et'SE 

RFGIN ZIPNUMfN DTV 103 J Z IpTEXT ( ENT IER t N 



% TRANSFERS A NUMBER TO THF ZIP BUFFER! 



MOO 10)*1) ENOJ 



WRITEALGOU 

WRJTEtPASCA! GOL.IASTLTnDJ 

I OrKCPASCAL«OL#SAVF)J 

7TPPNT 1 "POINTER? ZTPARRAyOi )i 

RFPLACF ZIPPNT BY w » FnR 90 WORDS; 

WRTTE(LINFS.NOFRRORS); 

ZYPTEXT("Ce H i3)J 

ZTPTEXTf" "#1)J 

ZTPTEXTf»V»,l); 

ZtPTEXTf VALGOffT)) 

TF SAVFFACTHR>0 THFN 

TF SAVFFACTOR<0 THFM 

7TPTEXT("J H ».n> 
7TPTEXT("XAl G0L M *6); 
ZTPTEXTC CAR0» W »6); 
7TPTEXT( M / W »1); 
7!PTEXTe w SFRIAL"»7); 
TF SAVFFACTOR>0 THEN 
RFGIN 

7!PTFXT("5AVF««",5)j 
7TPTFXTC M ; W M); 

FNDJ 

7TPTEXT( ,, ENn. M »«)I 
7TP WITH ZlPARRAYf*!; 

FMO OF compiler ZIP F| SF 
BFGIN 

TNTFGER I) 

SWITCH FORMAT FRRORMFSSl 



7TPTEXT<: M C0MPILF W #7)| 

7TPTEXT(PR0GNAMF»PR0QNAMELENGTH)J 

7lPTEXT(USERt 7)1 

7TPTEXTC %1)J 
ZTPTFvT( w LIBRARY%7)J 
ZTPTEvT("SYNTAX%6)J 

7TPTEXTC FILE"#5)J 
7TPTEXT(ALG0LNAMF»7)J 
7TPTEXTeuSER*7)J 
7TPTEXTfTM)) 



7IPkiI)M(SAVEFACT0R)J 



f 

(" 
(." 

( " 

f" 

t " 

f 
f" 

f 
f * 

f " 



o 

1 
p 

ft 

* 
7 
R 
9 
10 

ti" 
l? 

l^ 
1* 

15 
16 
17 
IB 



»« 

*** COMPTLFR FPROp *** CONTACT THE COMPUTER CENTRE. "), 

inFNTIFIFR NOT DEFINED. "), 

IHFNTTFTFR ALRFAOv DEFINED. ")# 

WRflNG NUMBFR Or PARAMETERS ." ) » 

SYNTAX FRROR>')# 

VARIABLE NOT ACCF«sSIBL.E CHARDWARF RESTRICTION )• * ) » 

STRINGS MAY NOT Br CONTINUED FROM ONF CARD TO AN0THER>)# 

A TYPF FXPFCTFn>'-># 

VARIABLE FxPFf!TED* M )# 

IOFNTTFIFR EXPFCTpD>), 

INTEGFR CONSTANT FXPECTED>)# 

CONSTANT OF OTHER TYPE THAN EXPECTED."), 

VARlABLF OF I| J'EGaL TYPE^"), 

UNRECnGNTZABLF STATEMENT.")* 

CONSTANTTnO.BTG oR TOO SMALL>)# 

UNnEFTNFO LABFi'>3* 

FOR- AND CASF-STATFMENTS NESTED 

EXPRESSION IS nF wRONG TYPE.")* 

tt»ft 0F ftntt FvPFrTED , ' H )* 



TOO DEEP.")* 



90096000 

90097000 

90098000 

90099000 

90100000 

90101000 

90102000 

90103000 

90104000 

90105000 

90106000 

90107000 

90108000 

90109000 

90110000 

90111000 

90112000 

90113000 

90114000 

90115000 

90116000 

90117000 

90118000 

90119000 

90120000 

90121000 

90122000 

90123000 

90124000 

90125000 

90126000 

90127000 

90128000 

90129000 

90130000 

91001000 

91002000 

91003000 

91004000 

91005000 

91006000 

91007000 

91008000 

9*009000 

91010000 

91011000 

91012000 

91013000 

9J014000 

91015000 

91016000 

91017000 

91018000 

91019000 

91020000 

91021000 
91022000 



f " 

t " 

f " 

( » 

f" 
f" 
f" 
C" 
f" 
f " 

f" 
f " 

r " 

f« 

f " 

f" 

f« 
f «i 

f" 
f M 

f" 
f" 
f « 
r " 
f" 
f 
f 

f " 

(» 

t" 

( n 
f •• 
f" 
f 



19 

20 

21 

2? 

23 

24 

25 

26 

27 

2A 

29 

30 

31 

3? 

33 

34 

35 

36 

37 

3fl 

39 

40 

41 

4? 

43 

44 

45 

46 

47 

4n 

49 

50 
51 
5? 
53 
54 
55 
56 
57 
5* 
59 



THEN""".")* 



ifftffoowttif ryPFCTFO*")* 

"""ELSE""" WTTyOU.T CORRESPONDING """ 

ILLF6AL TFRMTNATInN OF STATEMENT!")* 

"""UNTIL""" FyPECtED!")' 

"""T0"""/"""00wNTn""" EXPFCTED."), 

"""END""" FXPFCTEn!"), 

,.„„,„„„ FXPECTFO."), 

"""t""« FXPECTFO."), 

•"•"THEN""" EXPFCTpd!"), 

tittH | Btftfft FXPFCTED*")' 

ONLY NlJMBFRS MAY bF SIGNED."), 

TOO MANY CASES*") J 

LABEL USFD MORP TuAN ONCE.**)* 

CONSTANT EXPECTED*"), 

LAPEL NOT TN RANGp o!.9999."), 

TOO MANY LABFI S DeCLAREO ! " ) , 

TOO MANY CONSTANT* DECLARFD,"), 

«»n m »n» FyPFeTFD!"), t 

TMF LTST IS TOO LnNG.")* 

INVALID TYPF FOR I FUNCTION."), 

"""BEGIN""" EXPECtFO.")* 

TOn MANY TDFNTTFIrRS DECLARED!"), 

ALFA eONSTANS MAY NOT BE LONGER THAN 7 CHARACTERS!"), 

EXPRESSION IS WOT OF TYPE BOOLEAN!"), 

NOT PROPFR FORwARn DECLARATION."), 

UNSATTSFIFD FORWARD DECLARAT ION> ) , 

TOO MANY DIFFERENT TYPES DECLARED.*"), 

""")""" FYPECTFO!"), 

"""C""" FXPECTFO*"), 

A SIMPLF TYPF FXPpCTED."), 

"""ARRAY OF ARRAY""" AND """ARRAY OF RFCORD""" ILLEGAL"* 

" AS FTLF TYPF*")? 

"""FILE OF FTIP""" IS ILLEGAL^"), 

SET POUNDRY IS TOn BIG OR TOO SMALL."), 



TOO MANY UNDFOIARpD POINTFRS."), 
"""!!""" FXPFCTED*"), 




""")""" FXPECTFD."); 



SWITCH FORMAT FRR 



f" 
f " 
( " 
f" 
(" 

f" 
f" 
f" 
f" 
f" 
f " 
f" 
f" 



ORMESS? >a 

60 """ARRAY OF FTi'E""" NOT ALLOWED!"), 

61 RANGE OF INDEX IS GREATER THAN 1023."), 
6? UNSATISFIED PDTNTpR DECLARATION!"), 

63 EXPRESSION IS TOO LONG." ), 

64 ILLEGAL OPfRATOR pOR THIS TYPE OF EXPRESSION!"), 

65 INTEGER FXPRFSSlOw EXPECTED."), 

66 A SET FXPFCTEo!")T 

67 PARAMETER OF TlLEftAL TYPE.""), 

6fl PROCEDURFS NOT ALi'nWED IN THIS CONTEXT."), 

69 ILLEGAL USF OF, THtS TYPE OF IDENTIFIER."), 

70 TOO MANY PARAMFTEoS DECLARED TN THE PROGRAM."), 
7t """ARRAY OF CHAR""" EXPECTED."), 

72 WRONG TYPF OF SET EXPRESSION,"), 



91023000 

91024000 

91025000 

91026000 

91027000 

91028000 

91029000 

91030000 

91031000 

91032000 

91033000 

91034000 

91035000 

91036000 

91037000 

91038000 

91039000 

91040000 

91041000 

91042000 

91043000 

91044000 

91045000 

91046000 

91047000 

91048000 

91049000 

91050000 

9J051000 

91052000 

91053000 

91054000 

91055000 

91056000 

91057000 

91058000 

91059000 

91060000 

91061000 

91062000 

91063000 

91064000 

91065000 

91066000 

91067000 

91068000 

91 069000 

91070000 

91071000 

91072000 

91073000 

91074000 

91075000 

91076000 

91077000 

9J078000 

91079000 



f " 
f" 
t " 
t " 
(" 
f" 
f " 
(" 
f" 
f " 

f " 
(" 
(" 
f » 
? " 
f" 
f" 
t» 
(" 
f" 
f" 

f" 
f " 
(" 
f " 
f " 



7* TOP MANY FXTFRNAL FILES 

74 ILLEGAL TDFNTTfIEp FDR 

jm, iiH«p ROfiRAM «.n. pyprCTFD. 

76 „.,„„„„ pypfCTFO AT END 

77 EXTERNAL FTLF TDEwTIEIE 
7* ILLEGAL FILF PaRAmFTER. 

79 ILLEGAL USF OF FIi'f, HAN 

80 TFXT»FTLF FXPFCTEn>)# 

81 POINTER VARIARJE rXPECT 
8? ONLY VALUFS OF TYpF REA 
83 VARIABLES TN RfCOrOS IL 
8a DISPLAY OVERFI OW>)# 

88 RFAD AND WRlTF MAv ONLY 

86 RFFERFNCFn ORJFCT, IS TO 

87 FND-OF-TNPUT DISCOVERED 

88 CHARACTER ARRAY EvPECTE 

89 H " M » H "" FXPECTFD^")* 

90 PROCEOURES MAY NOT HAVE 
91~ PARAMETER OF WRONft KIND 
9? ONLY COMPLFTE ARRaYS AN 

93 DEPLARFD LABFI NOT USED 

94 PARAMFTERS OF THI* TYPE 

95 ASSIGNMENT OF STRUCTURE 

96 INPUT/OUTPUT NOT nFCI,AR 

97 TOH MANY FTLFS.TN m S f . ** 5 
9fl RFrORO IDENTIFIER FXPEC 
99 UNRECOfiNTZARLF ITfM."), 



.")» 

EXTERNAL FILE."), 
")# 

OF PROGRAM."), 
R MAY NOT EXCEED 6 CHARACTERS.")* 
")* 
DLING PROCEDURE.")* 

ED>), 

L» INTEGER OR CHAR MAY BE READ>), 

LFGAL IN THIS CONTEXT>)# 

RE USED ON TFXT-FtLESI")* 
BIG."), 
t")# 
D.h), 

ANY TYPE>)> 
.")# 

D RECORDS MAY BE TRANSMITTED.")* 
.")» 

SHOULD NOT BF VALHF PARAMFTERS." ) > 
D VARIABLES NOT IMPLEMENTED."), 
ED."), 
* 
TED."), 



WRT 

FOR 
WRT 
FOR 
WRT 

FND of 

IF XRFF 

BFGIN 

RFP 
HFA 
SOR 

ENDJ 

EmD HF 

enDifno 



TEtLTMES,ERRORSfNUMFRRSW 

IlaO STFP 1 UNTTL 59 Dn IF ERRTIl THEN 
TEtl INES,*ERR0RMFSS1 rM)7 

I ««ftO STEP 1 UNTIL ?19 DO IF ERRCI) THFN 
TE(LlNES,ERR0RMFSS?rT-6n3)J 

frror messages! 
option then 

lacf p0tnter(xrffltnfc*1) by " * for 17 words* 

nINfiJ 

TCPRINTXREF,xRFFFTLF.*0,vREFMAX,xREFC0MPARE,3,10OO#6O00); 



B5700 PASCAL COMPTlFR, 

LAST CARD TmAGp ON SOURCE TAPF FILE 



91080000 
91081000 
91082000 
91083000 
91 084000 
91085000 
91086000 
91087000 
91088000 
91089000 
9J090000 
91091000 
91092000 
91093000 
9j094000 
91095000 
91096000 
91097000 
91098000 
91099000 
91100000 
91101000 
91102000 
91103000 
91104000 
91105000 
91106000 
91107000 
91108000 
91109000 
91110000 
91111000 
91112000 
91113000 

9U14000 
91115000 
92001000 
92002000 
92003000 
92004000 
9?005000 
92006000 
.99001000 
99999999 
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LABFL OOOOOOOOOPRNT 00i790*i?USERs<INF0RM J EXECUTE COPY /INFORM COPY /INFORM 

FILE! PASCAL/ INFORM FRI 3/02/79 04t02PM 

90 PASCAL WAS REVtSED 10/26/78 WITH NEW HFRIOT-WATT VFRSION, 

100 WE NOW HAVF THc HFRIOT-WATT UNIVERSITY VERSION OF PASCAL. 

200 IT TS TMPLFMFNTFO AS A PRE-PROCESSOR THAT PRODUCES AN XALGOL 

300 PROGRAM FROM PaSCAL SOURCE AND AUTOMATIC ALI Y CALLS THE XALGOL 

400 COMPILER. 

500 

600 TO USF AS A BATCH COMPILER USF THE FOLLOWING CONTROL DECK. 

700 ?EXECUTF PASCAi/PASCAL 

BOO 7DATA029 SnnRCr (THIS NAME TS LIKELY TO CHANGE) 

900 SOURCF DFCK 

1000 70ATA029 INPUT 
1100 INPUT DATA nFCK IF ANY 

1200 ?END 
1300 

1400 TO USF FROM TImF SHARING* FIRST CREATE SEQUENTIAL FILES OF THE 

1500 SOllRCp TFVT ANn THE INPUT TEXT IF ANY. MAKf A FILE TO HOLD 

1510 THF LTSTTNft, pY MAKING A SFOUFNTIAL FILE CONTAINING A LINE OF 

1511 GARBAOF. fyHE FILE MUST BE PRESENT BEFORE THE COMPILER CAN 

1512 STORF INTO IT 5 
1513 

1514 THF SOURCF mUSt INCLUDE A COMMFNT LlNF <*SS10O THIS SETS 

1515 THF SAVF FACTOp OPTION TO 10 DAYS* AND WILL CAUSE THE OBJECT 

1516 FILF TO BF SAVfO. THE NAME IN THE "PROGRAM" STATEMENT SHOULD 

1517 HAVE FXACTI Y 6. LETTERS* AS THE SAVED VERSION WILL BE THAT 

151B NAME PPFCFOFD rY A ZERO* MAKING THE OBJFCT PROGRAM AN EXECUTABLF 

1519 PROGRAM IN YOUO ACCOUNT. 

1520 

1521 NFXT 

1600 FOUATF CAPD«<FILF>/<NAME> DISK SERIAL FOR THE SOURCE 

1700 FOUATF L tNE«<F ILF>/<N AMF> DISK SFRIAL FOR THE LISTING 

1710 CLTSTlNft WILL GO TO LINE PRINTER IF YOU OMIT THIS) 

lfloo fxfcutf object pascal/pascal 

1900 

2000 THE RFFFRFMCF MANUAL FOR PASCAL IS THE 1974 SPRIN6ER-VERLAG 

2100 EDITION OF THE JENSEN I WIRTH REPORT. THIS IS SUPPLEMENTED 

2200 BY a HFRIOT-WATT U. DOCUMENT! 

2300 CURRFNTLY AV/Ali.ABLE IS "PASCAL • USER MANUAL AND RFPORT" BY JENSEN 

2400 AND WTRTH, sPRtNGER STUDY EDITION, AT $5.90 PLUS SALES TAX FROM 

2500 SPRTNGER-VFRLAft NEW YORK* TNcI.175 FIFTH AVE.* NEW YORK, NY 10010 

2600 (NFW YORK cOiLECTS 6X SALES TAX FROM cAL IFORN IANS . ) 

2700 

2B00 THE FoLLOWTwG MATERIAL IS TAKFN FrqM THF HFRIOT-WATT DOCUMENT BY 

2900 DAG LANGMYHR* AUTHOR OF THE IMPLEMENTATION. 

3000 

3100 STRINGS MAY BE OF ANY LENGTH^ THE TYPE OF A STRING DEPENDS ON ITS 

3200 LENGTH* THURI 

3300 LFNGTH TYpF 

3400 ILLEGAL 

3500 1 CHaR 

3600 2-7 ALpA 

3700 GTR 7 ILi'EGAL* EXCEPT IN A WRITE STATEMENT 



